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PRÉFACE 


Ce livre, AMSTRAD/56 programmes BASIC, vous permettra de mieux 
connaître les possibilités de votre ordinateur et d'en apprécier la 
souplesse d'emploi. Il réunit 56 programmes et sous-programmies 


dûment testés 





et prêts à être utilisés. Certains vous sont proposés pour 
leur valeur éducative, d’autres pour les solutions qu'ils apporteront à 
vos problèmes d'ordre financier dans votre vie familiale comme dans 
votre vie professionnelle. Pour les mettre en œuvre. il n'est pas 
nécessaire de comprendre la programmation en langage BASIC. Lors- 
que vous avez un problème à résoudre il vous suffit d'en fournir Îles 
données à votre ordinateur après avoir introduit en mémoire Je 
programme correspondant. 

Ces programmes vous seront utiles en des circonstances très diverses. 
Vous pourrez par exemple déterminer le seuil de rentabilité d'une 
nouvelle affaire, calculer les versements mensuels nécessaires pour 
constituer une provision permettant de faire face aux frais d'éducation 
de vos enfants, où encore établir le bilan prévisionnel d'un fonds de 
retraite. Les programmes d'entraînement à larithmétique sont conçus 
plus particulièrement à l'intention des écoliers confrontés aux difficule 
tés de leurs «devoirs du soir ». 

Le livre comprend de nombreux programmes originaux. Vous v 
trouverez aussi des programmes d'entraînement au caleul de fractions. 
un programme de multiplication de grands nombres. et des program 
mes associant l’analyse des données et leur traitement graphique qui 
figurent rarement dans les manuels. 

De même l’utilisation de sous-programmes de base est particulière à 
cet ouvrage. En effet, l’un de ses principaux objectifs est de fournir des 
programmes courts, donc faciles à introduire dans ordinateur: pour 
atteindre ce but, il a été établi un ensemble de sous-programmes 
généraux utilisables par les autres programmes. Ces sous-programmies 
que vous pourrez employer quand vous écrirez vos propres programmes 
vous éviteront bien du travail. 
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Ce livre n'a pas pour objet d'enseigner la programmation en BASIC; 
cependant, Putilisation des programmes qu’il contient vous aidera à 
comprendre ce langage, sans effort et de manière presque automatique. 
Au fur et à mesure que vous vous familiariserez avec lui, vous 





deviendrez capable de modifier les programmes qui vous sont proposés 
et d’en écrire de nouveaux. 

Les sujets traités dans le présent ouvrage sont répartis en sept 
chapitres selon le plan suivant : 


Chapitre 1: Anstructions pour lutilisation des programmes. Procédés 
permettant le dialogue entre Putilisateur et les programmes. (Relire ce 
chapitre avant toute mise en œuvre.) 


Chapitre 2 : Programmes relatifs aux finances familiales et profes- 
sionnelles. On trouvera iei des programmes permettant d'établir le 
bilan prévisionnel d’un compte de dépôt ou celui d’un compte constitué 
par des dépôts réguliers (par exemple d’un fonds de retraite) et aussi les 
programmes permettant de calculer le taux d'intérêt d’un investisse- 
ment où de déterminer le rythme d’accroissement d’un capital in- 


vesti. 


Chapitre 3 : Programmes concernant la gestion des entreprises. Ils 
permettent d'établir les conditions de l’amortissement d’une machine, 
le seuil de rentabilité d’une affaire nouvellement créée, ou d'effectuer le 
caleul d’un salaire en tenant compte des heures supplémentaires. 


Chapitre 4: Programmes de gestion immobilière. Hypothèques. 
Rendement de placements immobiliers. (Vous pourrez, par exemple, 
caleuler ce que vous fait gagner l'adoption d’une procédure de 
remboursement accéléré d’un prêt hypothécaire.) Les investisseurs, les 
propriétaires, apprécieront laide que leur apporteront ces program- 
mes. 


Chapitre 5°: Programmes d'analyse de données, scientifiques ou 
financières. Ces programmes permettent en particulier de calculer la 
déviation standard et la moyenne, les diverses moyennes mobiles, la 
régression linéaire et d'obtenir les graphiques correspondants. Ils 
pourront servir à l'analyse des marchés et auront des applications dans 
des domaines très divers. 


Chapitre 6 : W propose des exercices d’arithmétique pratique que les 
écoliers et les lycéens utiliseront avec profit. Ces exercices portent sur 
l'addition, la soustraction, la multiplication et la division des nombres 
entiers et des fractions. 
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On trouvera à la fin de cet ouvrage deux annexes : 
B 


Annere À : Listes des sous-programmes qui permettent utilisation 
de programmes principaux très courts. Ces listes sont ordonnées de 
telle sorte qu’il n’y a aucun problème pour s’y référer. Le rôle joué par 
les sous-programmes est indiqué dans les commentaires figurant dans 
les programmes principaux. 


Annexe B : Emploi des sous-programmes pour la création de 
nouveaux programmes. (La description de la méthode préconisée est 
illustrée d'exemples qui en facilitent la compréhension.) 


INTRODUCTION 


Le but de cette introduction est de vous montrer que les programmes de 
ce livre peuvent accroître considérablement l'efficacité de votre ordi- 
nateur. Vous apprendrez comment les introduire en mémoire et les 
faire fonctionner, comment créer une bibliothèque de sous-program- 
mes et une bibliothèque de programmes pouvant être mis en œuvre à 
partir d’un même catalogue. Vous y trouverez aussi la définition d’un 
programme interactif et des informations sur la manière dont cette 
interaction est réalisée. 

Les programmes figurant ici ne demandent pas une connaissance 
particulière de la programmation en langage BASIC. Ils doivent être 
considérés simplement comme susceptibles d'apporter une solution à 
un grand nombre de problèmes professionnels ou domestiques. Cepen- 
dant, si vous souhaitez étendre vos connaissances en matière de 
programmation, ils vous apprendront comment tirer pleinement parti 
des grandes possibilités de votre ordinateur. 


INDICATIONS PRÉLIMINAIRES 


On associera à l'ordinateur un magnétophone à cassettes. Vous 
trouverez, dans votre manuel AMSTRAD. les instructions nécessaires 
pour charger les programmes en mémoire et les faire fonctionner. 

Pour utiliser ce BASIC, il suffit de mettre l'ordinateur en marche. 
Après un court instant, l'écran affiche : 


READY 


Vous aurez besoin de deux cassettes pour sauvegarder chaque groupe 
de programmes (un enregistrement de travail et une copie). Vous 
devrez toujours faire deux enregistrements de chaque programme. 
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A ce stade, vous pourrez charger en mémoire n'importe quel 
programme de ce livre. Pour cela vous devrez taper au clavier chacune 
des lignes de la liste du programme choisi de manière qu’elles soient la 
réplique exacte de celles figurant dans le livre. Après la frappe de 
chaque ligne, pressez la touche d'entrée : (ENTER). Introduisez par 
exemple le programme qui suit : 


100 PRINT « HELLO » 
110 END 


Commencez par taper la première ligne (100 PRINT « HELLO »). 
Introduisez cette ligne en mémoire en pressant la touche ENTRÉE. 
Complétez la saisie du programme en tapant puis en introduisant la 
seconde ligne. 

En effectuant ce genre d'opération vous commettrez quelquefois des 
erreurs. Si le texte est très court, le plus simple et de le retaper. S'il est 
long, reportez-vous au manuel d'utilisation qui propose d’autres 
méthodes de correction. 

Pour mettre en œuvre le programme, tapez RUN 100 et pressez la 
touche d'entrée tout en surveillant l’affichage à l’écran; vous constatez 
alors que votre programme fait apparaître HELLO au-dessous du 
programme déjà affiché. D’autres informations sur l’introduction en 
mémoire, la sauvegarde et la mise en œuvre des programmes vous 
seront données un peu plus loin. 


Note: nous utiliserons le clavier en mode majuscule (CAPS 


LOCK). 


LES COMMENTAIRES 


Les commentaires figurant dans un programme en facilitent la 
compréhension. Ils sont précédés par le symbole REM. Sur la Figure 1.1 
les commentaires encadrent une ligne au début du programme et 
expliquent le rôle de la ligne 130. Lorsque voüs effectuez la saisie d’un 
programme, vous n'avez pas en principe à taper les lignes de 
commentaires. La première ligne est cependant rendue nécessaire par 
la structure de ces programmes. La Figure 1.2 donne la liste du 
programme précédent (Figure 1.1) dans laquelle n’ont été conservées 
que les instructions nécessaires à son utilisation. 
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100 REM —---—--—— 

101 N$="EXEMPLE" 

102 REM ----———- 

110 INPUT X 

120 INPUT Y 

125 REM ON AFFICHE LA SOMME DE X ET * 
130 PRINT X+Y 

140 END 





Figure 1.1: Programme comprenant des lignes de commentaires 








100 REM 

101 N#="EXEMPLE" 
110 INPUT X 

120 INPUT Y 

150 PRINT X+Y 
140 END 





Figure 1.2: Programme comprenant des lignes de commentaires condensées 


CONSTITUTION D'UNE BIBLIOTHÈQUE 
DE SOUS-PROGRAMMES 


On se servira d’une bibliothèque centrale de sous-programmes afin de 
simplifier la saisie et la manipulation des programmes. Un sous- 
programme est un programme qui est utilisé comme partie d'un autre 
programme. Par exemple un sous-programme général effectue l'entrée 
des données pour une grande partie de nos programmes qui peuvent 
ainsi être courts et d’une introduction plus aisée. 

La liste de chacun des sous-programmes figure dans l'Annexe À. 
Dans l'Annexe B, il vous sera expliqué comment vous pouvez utiliser 
certains de ces sous-programmes pour créer vos propres program 
mes. 

Tout d’abord nous établirons la bibliothèque de sous-programmes. 
Reportez-vous à l’Annexe À dans laquelle vous trouverez les listes de 
sous-programmes généraux. 

Vous commencerez par la ligne 3400. Introduisez les instructions de 
ce sous-programme dans votre ordinateur après avoir tapé NEW pour 
effacer toutes traces de précédents programmes. (Rappelez-vous que 
seuls seront conservés les commentaires de la première ligne de chaque 
programme.) L'affichage obtenu doit être celui de la Figure 1.3. 
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3400 REM 

3470 Q1#="VOULEZ-VOUS" 

2450 QZ#t="DE NOUVEAU (0 OÙ N)" 
3440 GOSUR 3000 

3450 GOSUEH 7800 

3460 RETURN 





Figure 1.3: Une liste de programme : le sous-programme UNAU 


Poursuivez par la saisie du reste des sous-programmes. Vous 
procéderez ensuite à la sauvegarde de l'ensemble de ces sous-program- 
mes standard. Suivez les instructions du manuel de FAMSTRAD pour 
préparer votre magnétophone. 

Pour sauvegarder les sous-programmes sur cassette, tapez : 


SAVE « SUBLIB » 


Votre bibliothèque centrale de sous-programmes est maintenant 
stockée en mémoire de masse sous le nom de fichier SUBLIB. Vous 
aurez donc la possibilité de Fassocier à vos programmes d'application 
quand vous voudrez mettre en œuvre ces derniers. 


SAISIE ET MISE EN ŒUVRE DES PROGRAMMES 


Chargez tout d’abord en mémoire la bibliothèque de sous-program- 

mes en tapant: 
LOAD « SUBLIB » 

Vous êtes maintenant prêt pour effectuer la saisie d’un programme. 
Tapez ses instructions conformément à la liste. Les programmes des 
Chapitres 2, 3 et 4 doivent être sauvegardés sous forme d’un seul fichier 
pour chaque chapitre. (Donnez aux fichiers des noms qui permettent de 
les identifier aisément.) Pour mettre en œuvre un de ces programmes, 
il faut le charger en mémoire centrale puis taper RUN et le numéro de 
la première ligne du programme concerné. Lorsque vous aurez opéré la 
saisie de tous les programmes d’un chapitre, vous pourrez créer un 
catalogue qui vous permettra ultérieurement de sélectionner le pro- 
gramme que vous voudrez utiliser. La marche à suivre pour créer Île 
catalogue est donnée dans chaque chapitre. Les programmes de ces 
chapitres sont composés de lignes dont les numéros sont différents: 1l 
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est ainsi possible pour chaque chapitre de mettre en mémoire en un 
seul fichier les programmes et le catalogue. 

Il y a par exemple dans le Chapitre 2 plusieurs programmes qui vous 
permettront de faire des calculs financiers. Entrez en mémoire le 
programme SUBLIB puis tapez au clavier le programme « Etat prévi- 
sionnel d’un compte de dépôt » et faites la sauvegarde du tout au moyen 
de l'instruction 


SAVE «FIN » 
Si maintenant vous souhaitez utiliser un autre programme financier, 
charger celui qui vient d’être sauvegardé en tapant : 
LOAD « FIN » 
Vous pouvez alors introduire un deuxième programme et vous sauve- 
garderez les deux programmes ensemble en frappant au clavier 
SAVE « FIN » 


Vous voyez donc comment, par cette méthode, il vous est possible de 
constituer une bibliothèque de programmes. 

Vous pourrez ainsi faire fonctionner n'importe quel programme du 
chapitre en le choisissant à partir du catalogue sans avoir à vous 
souvenir d’un quelconque numéro de ligne. Pour que le catalogue 
puisse être utilisé vous devrez remplacer dans la dernière ligne de 
chaque programme l'instruction END par linstruction RETURN. 

Les programmes des Chapitres 5 et 6 sont destinés à être mis en 
œuvre d’une manière un peu différente. Le catalogue est placé en 
tête de programme; vous devez donc introduire le catalogue et ensuite 
le programme d'application choisi. Ces programmes sont lancés par 
sélection à partir du catalogue. Les catalogues étant placés au début des 
programmes, vous n'avez pas à vous préoccuper de leur assemblage et 
vous n’avez pas non plus à remplacer l'instruction END. 


MODALITÉS D'INTERACTION 


Le terme «interaction » s'applique à l'adaptation qui doit être réalisée 
entre l’ordinateur, les programmes et lutilisateur. Le but d'un 
programme interactif est de rendre aussi simple que possible le 
dialogue de l'utilisateur avec son ordinateur. 

Ce but peut être atteint de différentes manières. Le plus souvent, la 
réponse aux questions sera obtenue par pression d'une seule touche 
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sans intervention de la touche d'entrée. (C'est ainsi par exemple que 
seront choisis des programmes à partir du catalogue et que la simple 
frappe de la touche O où N donnera la réponse Oui/Non.) Une autre 
disposition interactive consiste à placer toutes les questions au bas de 
l'écran de sorte que Putilisateur les trouve toujours au même endroit. 
Les réponses sont reportées au sommet de l'écran de manière que l’on 
puisse s'y référer. 


RÉSUMÉ 


Nous avons cherché, dans ce chapitre, à vous donner les instructions 
nécessaires à Ja création et à la sauvegarde d’un ensemble de 
sous-programmes destinés à être utilisés conjointement aux autres 
programmes et à vous indiquer comment constituer une bibliothèque 
de programmes, groupés de manière à être mis en œuvre à partir de 
catalogues. lagencement de ces programmes est tel qu’on pourra 
toujours ajouter, si besoin est, un nouveau programme à l’ensemble des 
précédents. 

C'est grâce à l'existence d’une bibliothèque centrale de sous- 
programmes généraux que les programmes de ce livre sont aussi courts 
et d’une utilisation aussi aisée. 
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FINANCES 
PERSONNELLES ET 
PROFESSIONNELLES 


Ce chapitre comprend dix programmes applicables à la gestion des 
finances personnelles ou professionnelles. Supposons par exemple que 
vous soyez sur le point de déposer de l’argent sur un compte bancaire 
pour un temps déterminé. Une banque verse 8 © d'intérêts compost 





au mois, et une autre 8,25 % d'intérêts composés au trimestre. Un 
programme vous permettra, en utilisant votre ordinateur, de recon- 
naître immédiatement le placement le plus intéressant. 

Souhaitez-vous faire des versements réguliers sur un compte 
retraite? En utilisant l’un des dix programmes de ce chapitre vous 
calculerez la somme qui sera disponible sur ce compte quand vous 
arrêterez de travailler. Un autre vous permettra de savoir si vos 
économies sont suffisantes pour vous assurer une retraité convena- 
ble. 

Le dernier programme montre comment réunir tous les programmes 
en un ensemble et constituer ainsi un outil de calcul financier dont 
chacun des programmes composants peut être sélectionné à partir d’un 
même catalogue. 
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ÉTAT PRÉVISIONNEL D'UN COMPTE DE DÉPÔT 


Description 


Vous posez-vous des questions sur le rythme de croissance des comptes 
de dépôt? Désirez-vous comparer les résultats obtenus avec différents 
taux et périodes de compositions d'intérêts ? 

Ce programme vous permet de prévoir l’évolution de votre compte. 
Vous ferez intervenir le montant de la somme déposée, le nombre 
annuel des périodes de composition des intérêts, le taux d'intérêt 
annuel et la durée de placement (en années). Le programme a été établi 
sur la base d’un taux d'intérêt constant. 


Exemple 


Thomas place une somme de 40 000 F sur un compte de dépôt pour une 
durée de quatre ans. Ce placement lui rapporte 12 % d'intérêts annuels 
composés trimestriellement. Thomas voudrait savoir quel sera le 
montant de son compte au bout de quatre ans. La Figure 2.1 montre le 
résultat du calcul obtenu à l'écran. La Figure 2.2 donne la liste du 
programme correspondant. 


Finances personnelles et professionnelles 





ETAT FREVISIONNEL D'UN COMPTE 


DEFOT INITIAL (F) 40000. 00 
FERIOCES FAR AN 4.00 
TAUX D'INT ANN (%) 12.00 
NÜMERRE D'ANNEES 4.00 
ETAT EN FIN D OFER {F) 454188. 70 





- VOULEZ-VOUS 
CALCULER 
GE NOUVEAU G OÙ N ?0 


Figure 2.1. : Affichage à l'écran : État prévisionnel d'un compte 

















REM CALCULS 

FRINT 

FRINT'ETAT EN FIN D'OFER (F)":TAR(28) 
A=FAKR (1) 

FOR I=i TO FAR(2) FAR (4) 
A=A+AXFAR (5) /100/FAR (2) 

NEXT I 

A=INT(A#100+.5)/100 

PRINT USING'HH#HHHH.HH":; A 
Q2+#="CALCULER" : GOSUR 7400 

IF NO$='"N" THEN END ELSE GUTO 280 


REM = | 


N#="ETAT FREVISIONNEL D'UN COMFTE" 

REM. === RSS SR eee En 

REM FREFARATION 

GOSUR 64200 : K=i 

REM FARAMETRES A UTILISER 
Qi+t="INIRODUISEZ LES DONNEES" : O2#$="" 


“"DEFOT INITIAL (F)" : GOSUE 6600 
="FERIOLES FAR AN" : GOSUER 6600 
"TAUX D'INT ANN (%)" : GOSUR 6800 
"NOMBRE D'ANNEES" : GOSUR 6600 








Figure 2.2. : Liste du programme : État prévisionnel d'un compte 





ÉTAT PRÉVISIONNEL D'UN COMPTE CONSTITUÉ 
PAR DES DÉPÔTS RÉGULIERS 


Description 


Ce programme permet d'obtenir le montant d’un compte constitué par 
une série de versements réguliers. Vous pouvez par exemple déterminer 
à l'avance l’état de votre compte retraite en fonction de vos versements. 
Vous ferez intervenir le montant de chaque versement, le nombre de 
versements effectués par an, le taux de l’intérêt que vous rapporte votre 
argent et le nombre d'années durant lesquelles vous ferez ces verse- 
ments. On a posé comme hypothèse que le nombre de versements par 
an et celui des périodes de composition de l’intérêt sont les mêmes. 


Exemple 


Anne a l'intention de verser chaque mois 4 000 F sur son compte de 
dépôt. Son compte lui rapportera un intérêt annuel de 6 % composé 
mensuellement. Quelle somme aura-t-elle sur son compte dans quatre 
ans? La Figure 2.3 montre l'affichage concernant cet exemple. La liste 
du programme se trouve Figure 2.4. 
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Finances personnelles et professionnelles 





ETAT FREV D UN COMPFT CONST FAR DEF REGL 


MONT D'UN VERSEMENT (F3 4500.00 
NERE DE VERSGMNIS FAK AN 12.00 
INTERET ANNUEL 4%) 6.00 
NOMERE D ANNEES 4.00 
ETAT EN FIN D'OFER F) 216:91.00 


— VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N 70 


Figure 2.3. : Affichage à l'écran : 
Etat prévisionnel d'un compte constitué par des dépôts réguliers 





490 
EO00 
510 


515 


CRIE 
70 


365 





REM' SSSR SRE TS SR Se =sessssee 

N#="ETAT FREV D'UN COMFT CONST FAR DEF REGU" 

REM:ESRSSS SSSR SSS eee 

REM FREFARATION 

GOSUR 6200 : K=i 

REM FARAMETRES A UTILISER 

C1#="INTRODUISEZ LES DONNEES" : Q2F="" 

MONT D'UN VERSEMENT (F)" : GOSUE éérû 

="NRRE DE VERSMNTS FAR AN" : 50SUR 6600 

INTERET ANNUEL (2) : GUSLE és 
Zt="NOMERE C'ANNEES" : GOSUR é66cù 

FEM CALCULS 

FRINT 3 FRINP'ETAT EN FIN D 'OPER (Fi"3 Au Cu) 

A=Q 

FOR [=1 TO FÉR(2) #FSR (4) 

A=FAR C1) +A+A#FAR CE) /10O0/FAR KT) 

NEXT ] 

A=INT(A#100+.5)/100 

FRINT USING'H#HHH#H. H#" SE 

Q2#="CALCULER" : GOSUE 2400 

IF NO$="N" THEN END ELSE CO:D S£0 












Figure 2.4: Liste du programme : 
Etat prévisionnel d'un compte constitué par des dépôts réguliers 





VALEUR ACTUALISÉE D'UNE CRÉANCE 


Description 


Supposons que Robert ait à vous rembourser dans trois ans une somme 
de 40 000 F. IT vous propose un remboursement immédiat de 32 000 F 
et vous vous demandez si vous devez accepter son offre. Le présent 
programme utilise, pour déterminer la valeur actualisée de votre 
créance, le taux d'intérêt que vous indiquerez. Si cette valeur est 
inférieure à 32 000 F vous pouvez accepter l’offre. 

Pour mettre en œuvre ce programme, vous ferez intervenir le 
montant du paiement à terme, le taux de l’intérêt annuel que peut vous 
rapporter l'argent remboursé, le nombre annuel des périodes de 
composition de cet intérêt et la durée (en années) de la période au bout 
de laquelle le versement doit être fait. 


Exemple 


Guillaume détient un effet pour une somme de 80 000F qu'on lui 
remboursera dans cinq ans. D'ordinaire, il prête de l'argent à un taux 
d'intéret de 10 © composé trimestriellement. Il désire savoir quelle est 
la valeur actuelle de l'effet en sa possession. La Figure 2.5 représente 
l'affichage correspondant à la mise en œuvre du programme de calcul 
de la valeur actualisée. et la Figure 2.6 la Histe de ce programme. 
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VALEUR ACTUALISEE D UNE LREANCE 


MONTANT A TERME (F) 80000, 00 
NOMRRE DE FERIODES FAR AN 4.00 
iNTERET ANNUEL (%) 10.00 
DUREE EN ANNEES 5. u0 
VALEUR ACTUALISEE (F) 48821.70 


—VOULE Z -VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N 70 


Figure 2.5 : Affichage à l'écran : Valeur actualisée d’une créance 





REM. SR RS == 
N$="VALEUR ACTUALISEE D'UNE CREANCE" 
REM -- 
REM FKEFARATION 

GOSUB 6200 : k=1 

REM FARAMETRES À UTiLISER 

Q1#="INTRODUISEZ LES DONNEES" : Q2#$="" 
="MONTANT A TERME {F)" : GCSUER 85600 
='"'NOMERE DE FERIODES FAR AN" : GOSUEH 660ù 
"INTERET ANNUEL (%)" : GOSUR 6600 
2:+="DUREE EN ANNEES" : GOSUR 6600 

REM CALCULS 

FRINT : FRINT'VALEUR ACTUALISEE ir)"; TAR(28) 
A=FAR (1) / (1+FAR(Z) /100/FAR(T)) (FAR (2) «FAR (4) ) 
B=INT (A#i0O+.3)/100 

FRINT USING'"'H#H#HHHH.HH'": A 

REM UN AUTRE CALCUL 7 

Q2#= "CALCULER" : GOSUE 3400 

IF NO$="N" THEN END ELSE GOTO 690 














1 2.6 : Lis rogramme : Valeur actualisée d'une créance 
Figure 2.6 : Liste du 6 Val tual l 
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VALEUR ACTUALISÉE D'UNE CRÉANCE 
À TERME ÉCHELONNÉ 


Description 


L'exemple précédent concernait le calcul de la valeur actualisée d’une 
créance destinée à être honorée en une seule fois. Le présent 
programme vous permettra d'obtenir la valeur actualisée d’une créance 
qui fait l’objet de versements échelonnés. Supposons, par exemple, que 
Simone ait acheté votre voiture et vous la paie en trois ans à raison de 
400 F par mois. Au bout d’un an, elle vous offre de régler sa dette en 
vous versant 7 200 F. Vous vous demandez si vous devez accepter. Ce 
programme vous donnera la réponse. Vous accepterez l'offre si la valeur 
actualisée de votre créance est inférieure à 7 200 F. 

Vous ferez intervenir le montant de la vente, le nombre de 
versements effectués par an, le nombre d’années durant lesquelles ces 
versements seraient effectués et le taux d’intérêt correspondant au 
crédit ainsi consenti. Ici encore on considère que le nombre des 
versements effectués par an et le nombre des périodes de composition 
des intérêts sont les mêmes. 


Exemple 


Ayant placé son capital à 10 %, Jacqueline reçoit chaque mois 
3 200 F. Elle veut connaître la valeur actuelle de sa créance, qui sera 
remboursée en dix ans. La Figure 2.7 montre l’affichage correspondant 
à cet exemple, et la Figure 2.8 est la liste complète du programme. 
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VAL ACTUAL D'UNE CREANCE A TERME ECHEL 


MONT D'UN VERSEMENT (F) 2200.00 
NERE DE VERSEMNTS FAR AN 12.00 
TAUX D'INTERET ANNUEL (%) 19.06 
NOMBRE D ANNEES 10.00 
VALEUR ACTUALISEE (F) 242151.00 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU DO OÙ N 70 


Figure 2.7 : Affichage à l'écran : 


Valeur actualisée d'une créance à terme échelonné 





B60 REM —-—— 

870 N#="VAL ACTUAL D'UNE CREANCE A TERME ECHEL" 
BBO REM --— 

885 REM FREFARATION 

890 GOSUE 6200 :K=1 

900 REM FARAMETRES À UTILISER 





905 Dr CINRODOTSEZ LES DONNEES" : O2#="" 

910 ="MONT D'UN VERSEMENT (F)" 3: GOSUE 6610 
929 ="NBRE DE VERSEMNITS FAR AN" : GOSUR 6400 
930 TAUX D'INTERET ANNLIEL (23% : COSUR 6600 


940 O=:#$='"NOMERE D'ANNEES" : GOSUR 6600 
950 REM CALCULS 

960 FRINT : FRINT'VALEUR ACTUALISEE (Fo "3786 (18; 
970 A=0 

980 FOR I=1 TO FAR(2) FAR (4) 

990 A=A+PFAR(1)/(C(1+FAR(Z) /100/FAR (2) 301) 
1000 NEXT I 

1010 A=INT(A#100+.5)/100 

1020 FRINT USING'"'#HHHHHH.HHUSA 

1025 REM UN AUTRE CALCUL ?* 

1030 Q2#="CALCULER" : GOSUÜH Z4ü0 

1040 IF NOt='"N" THEN END ELSE LOTO 880 








Figure 2.8: Liste du programme : 
Valeur actualisée d'une créance à terme échelonné 





VERSEMENTS NÉCESSAIRES 
À LA CONSTITUTION D'UN CAPITAL DONNÉ 


Description 


Ce programme permet de déterminer le montant des versements 
réguliers aboutissant à la constitution d’un capital de valeur donnée. 
Ainsi on pourra calculer le montant des versements indispensables 
pour la réalisation d’un projet de vacances ou pour le remplacement 
d'un élément d'équipement ménager, ou pour la constitution d’un 
pécule en vue d’une dépense prévisible. Dans de tels cas, vous ferez 
intervenir le montant de la somme à réunir, le nombre de versements 
effectués par an, le taux de l’intérêt annuel que rapportera votre argent 
et le nombre d'années au bout desquelles vous en aurez besoin. On à 
posé comme hypothèse que le nombre des versements et celui des 
périodes de composition de l’intérêt étaient les mêmes. 


Exemple 


Robert a l'intention d'effectuer des versements mensuels pour consti- 
tuer un capital destiné, le moment venu, à financer les études de sa 
fille. Il évalue à 320 000 F la somme nécessaire et prévoit d’effectuer ces 
versements pendant dix-huit ans, sur un livret qui lui rapportera 
8,5 °c. L'affichage à l'écran concernant cet exemple se trouve Figure 
2.9 et la liste du programme Figure 2.10. 
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VERSMNTS NECES À LA CONST D'UN CAF DONNE 


MONTANT DU CAFITAL (F) 320000. 0€ 
NBRE DE VERSEMENTS FAR AN 12.00 
TAUX D'INTERET ANNUEL (%) 8.50 
NOMBRE D'ANNEES 18.00 





MONT DE CHAQUE VERSMT (F) 630.82 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU OC OÙ N ?0 


Figure 2.9: Affichage à l'écran : 
Versements nécessaires à la constitution d'un capital donné 





1050 
1060 
1070 
1080 
1090 
1190 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1199 
1200 
1210 
1215 
122 

1250 


REMY=S SSSR SES D LE En 

N#$="VERSMNTS NECES À LA UONST D'UN CAF DONNE" 
REMISE RRSSS S RSSESSSsrR S eee 

GOSUR 6200 : K=i 
REM FARAMETRES À UTILISER 

BASS INTRODUTSEZ LES DONNEES" : O2#="" 
"MONTANT DU CAFITAL {F)" 2: GOSUE 6690 
="NERE DE VERSEMENTS FAK AN" : GÜSUR 6600 
e ="TAUX D'INTERET ANNUEL (Z3° : GCSUR 6600 
OZ+$="NOMERE D'ANNEES" : GOSUR 6600 
REM CALCULS 
FRINT : FRINT'"MONT DE CHAQUE VERSMT (y "3 TAR: 28) 
I=FAR(Z) /100/FAR (2) 
Q=FAR (2) #FAR (4) 
A=PAR (1) #I/C(1+1) 0-1) 
A=INT (A#100+.5)/100 
FRINT USING'"H#H#HHH#. #H": 0 
REM UN AUTRE CALCUL 7 
O2#="CALCULER" : GOSUR :400 

IF NO#="N" THEN END ELSE GOTO 1050 










Figure 2.10: Liste du programme: 
Versements nécessaires à la constitution d'un capital donné 


30 








RETRAITS DE FONDS 


Description 


Vous utiliserez ce programme pour savoir pendant combien de temps 
vous pourrez effectuer des retraits d’un montant donné avant que votre 
compte bancaire ne soit à découvert. Il vous faudra faire intervenir le 
montant du dépôt initial, le nombre de retraits effectués par an, le taux 
de l'intérêt que donnent les sommes restantes et le montant de chaque 
retrait. Ici encore nous considérons que le nombre de retraits effectués 
annuellement est égal au nombre de périodes de composition de 
l'intérêt. 

Si le montant du retrait est inférieur à celui des intérêts, votre 
compte bancaire s’accroîtra au lieu de tendre à être débiteur. Dans ce 
cas, le programme affichera le message : SOLDE CROISSANT. L'opé- 
ration peut être longue, l'ordinateur effectuant autant de cycles de 
calcul qu'il est nécessaire pour obtenir un solde égal à zéro. 


Exemple 


Jacques et Jeanne Jamin ont lintention de prendre leur retraite. Le 
montant de leur compte bancaire s'élève à 800 000 F et l'intérêt qu'ils 
perçoivent est de 9 %. Is estiment avoir besoin de 6 400 F par mois. 
Durant combien d'années pourront-ils retirer mensuellement cette 
somme de leur compte? La Figure 2.11 représente l'affichage corres- 
pondant à cet exemple et la Figure 2.12 la liste du programme. 





1240 REM - -- = 
1220 NF="RETRAIT DE FONDS" 

1260 REM -- 
1270 GOSUR 6200 : = 
1200 REM FARAMETRES A UTILISER 








Figure 2.12: Liste du programme : Retrait de fonds 
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RETRAIT DE FONDS 


DEFOT INITIAL {F) 800000, O0 
NEBRE DE RETRAITS FAR AN 12.00 
TAUX D'INTERET ANNUEL (7%) 9.00 
MONT DES RETRAITS (F) 6406. GC 
NOMRRE DE RETKRAITS 271.00 
DUREE EN ANNEES 10.92 


—VOULE Z-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


Figure 2.11: Affichage à l'écran : Retrait de fonds 





Cit="INTRODUISEZ LES DONNEES" : Q2$="" 
="DEFOT INITIAL (F)" : GOSUB 6600 
="NERE DE RETRAITS FAR AN" : GOSUB 6600 
+="TAUX D'INTERET ANNUEL (%)" : GOSUB 6600 
='"MCNT DES RETRAITS (F)" : GOSUB 6600 
REM CALCULS 

FRINT : FRINT'NOMERE DE RETRAITS";TAB(28) 
A=FAR(1) : Z=1 
A=A+A#FAR (CZ) /100/FAR(2) -FAR(4) 

IF ASFAR(1) THEN 1400 

FRINT : FRINT'"'SOLDE CROISSANT" 

GOTO 1466 

IF ASFAR(4) THEN 1430 

Z=2+i 

GUTO 12:70 

FRINT USING'HHH#HH. HH": 7 

FRINT'DUREE EN ANNEES"; TAER(28) 

FRINT USING'H#H#H##H#.##":7/12 

REM UN AUTRE CALCUL 7? 

O2+="CALCULER" : GOSUR 3400 

IF NO$='"N" THEN END ELSE GOTO 1240 











Figure 2.12: Liste du programme : Retrait de fonds (suite) 
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TAUX D'INTÉRÉT D'UN INVESTISSEMENT 


Description 


Le programme utilisé dans cet exemple permettra de déterminer le taux 
de l'intérêt que rapporte un placement lorsqu'on connaît son montant 
intitial et le montant qu'il atteindra en fin d'investissement. Vous 
pourrez ainsi calculer le taux de l’intérêt correspondant à la plus-value 
provenant de la vente d’une maison. Vous ferez aussi intervenir la 
valeur initiale et la valeur actuelle de la maison, le nombre par an des 
D na NEA ' : s 
périodes de composition de l’intérêt et la durée de l’investissement en 


années. 


Exemple 


Il y à quatre ans, Tante Mame a donné à son courtier, pour 
investissement, la somme de 40 000 F. Elle reçoit maintenant en retour 
72 000 F. Elle désire connaître le taux des intérêts composés trimes- 
triellement correspondant à cet investissement. Les Figures 2.13 et 2.14 
sont respectivement l’affichage et la liste du programme concernant cet 
exemple. 
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TAUX D'INTERET D'UN INVESTISSEMENT 


SOMME INVESTIE (F) 40000.00 
SOMME FRODUITE (F) 72000.00 
FERIODES FAR AN 4.00 
NOMRRE D ANNEES 4.00 
TAUX D'INTERET ANNUEL (7%) 14.97 


—VOULE Z -VOUS 
CALCULER 


DE NOUVEAU O GU N 70 








1480 REM 

1490 N#="TAUX D'INTERET D'UN INVESTISSEMENT" 

LSOO! REM LES == Ses == sr 

1510 GOSUR 6200 : K=1 

1520 REM FARAMETRES A UTILISER 

1520 Q1#="INTRODUISEZ LES DONNEES" : @Q2$="" 
3 ="SOMME INVESTIE (F)" : GOSUB 6600 

‘SOMME FRODUITE (F)" : GOSUR 6600 

"FERIODES FAR AN" : GOSUB 6600 

2Z+="NOMERE D'ANNÉES" : GOSUR 6600 

REM CALCULS 

G FRINT : FRINT'TAUX D'INTERET ANNUEL (%)";TAB(28) 

O=PFAR (ZI) FAR (4) 

I={(FAR(2) /FAR(1)) (1/0) -1) 100#FAR (3) 

I=INT(I#100+.5)/100 

FRINT USING'"#HHH#H#. HH°: I 

REM UN AUTRE CALCUL 7? 

O2+#="CALCULER" : GOSUR 3400 

IF NO$="N" THEN END ELSE GOTO 1480 
















Figure 2.14 : Liste du programme : Taux d'intérêt d'un investissement 
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VALEUR ACTUELLE NETTE, 
PRODUITS DISPONIBLES BRUTS 


Description 


L'analyse en valeur actuelle nette (VAN) permet de déterminer si un 
investissement est valable. Une VAN positive, pour un taux d'intérêt 
donné, justifie le bien-fondé d’un investissement. 

Ce programme vous servira à établir la valeur actuelle d’une série de 
produits disponibles. Ce peut être, pour chaque période, des produits 
différents. Vous mettrez le programme en œuvre en prenant en compte 
l'investissement initial et le taux d'intérêt correspondant. Le pro- 
gramme vous demandera alors de faire intervenir le montant de 
chaque produit sous forme de nombres positifs ou négatifs selon que les 
sommes correspondantes seront reçues ou déboursées. On mettra fin à 
cette opération en frappant la touche O (zéro). 


Exemple 


Justine peut acheter 40 000 F un effet de commerce, qui, sur 5 ans, lui 
permettrait de percevoir annuellement 4 000 F, 12000 F, 12000 F, 
12 000 F, puis 8 000 F. Elle souhaite que son capital lui rapporte un 
intérêt annuel de 12 %. Quelle est la valeur actuelle nette de 
l'investissement qu'elle envisage? Le résultat affiché Figure 2.15 est 
négatif, ce qui indique que le rendement de 12 % n'est pas atteint; en 
conséquence, Justine ne doit pas acquérir cet effet. La liste complète du 
programme est donnée par la Figure 2.16. 








1660 REM --- 

1670 N#="VAL ACT NETTE, FRODUITS DISPONIBLE BRUTS" 
1680 REM -----——.— ueg 

1690 DIM FV(100) 

1/00 GOSUR 6200 : F=1 

1710 REM FARAMETRES A UTILISER 

1/20 O1$="INTRODUISEZ LES DONNEES" : O2+#="" 

17:30 O2:$="SOMME INVESTIE (F)" : GOSUR 4600 

1740 OT#="TAUX D'INTERET ANNUEL (%4)" : GOSUR 6600 
750 O1#=" INTRODUISEZ LES FROD DISF ANNUELS" 
1760 QZ#="ENREGISTRES" 

1770 OZ#="TAFEZ © APRES ACHEVEMENT" 

1/80 GOSUR 5000 

1/90 J=10 











Figure 2.16 : Liste du programme : 
Valeur actuelle nette, produits disponibles bruts 
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VAL ACT NETIE, FRODUITS DISFONIELL GRLTE 





HME INVESTIE (F) 40000. on 
AUX D INTERET ANNUEL (2%) 15.00 
VALEUR ACTUELLE NEITE 6155.24 





Figure 2.15 : Affichage à l'écran : 
Valeur actuelle nette, produits disponibles bruts 





G FOR 1=1 TO 100 

LOCATE i,J9 

FRINT'EROD DISFON "+STRE({I) 3" 
LQUAIE 14,9 

INFUT FVCLD) 

IF FVCI)=0 THEN 18970 


J=j+i 
IF J=i6 THEN J=10 
NEXT Ï 


NFV= FAR C1) 

FCR i=i T0 150 
NPV=NPU+FU CT) / C14+FAR (2) /100: TI 
NEXT I 

LOCATE 1,6 

1940 FRINT : FRINT'VALEUR ACTUELIZ NET Se": 
1950 A=INT(NFV#100+.5) /100 

1960 FRINT USING'HHAHHEH.HHT SA 

197G FOR 1=i TO 100 

1980 FVCII = 

1990 NEXT I 

2000 C2#="CALCULER" : GOSUR 456 

2010 IF NO$="N" THEN END ELSE GOTO i/700 





4 





Figure 2.16 : Liste du programme : 
Valeur actuelle nette, produits disponibles bruts (suite) 
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DÉLAI DE DOUBLEMENT 


Description 


Ce programme servira à calculer le temps nécessaire pour qu’un capital 
investi double de valeur. Pour l'utiliser, il faut faire intervenir le taux 
d'intérêt et le nombre annuel de ses périodes de composition. 


Exemple 


Frédéric est titulaire d’un compte bancaire qui lui rapporte un intérêt 
annuel de 12 % composé trimestriellement. Combien faudra-t-il d’an- 
nées pour qu'un capital de 40 000 F déposé sur son compte ait doublé 
de valeur? L'affichage fournissant la réponse est donné par la 
Figure 2.17 et la liste du programme par la Figure 2.18. 
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CELAI DE DOLELEMENT 


FERIODES FAR AN 4.00 
TAUX D'INTERET ANNUEL {%) 12,06 
TENFS FOUR DOURLER (ANNEES) 5.8e 


VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 


 . 





Figure 2.17 : Affichage à l'écran : Délai de doublement 








2020 REM =" 
2030 N$="DELAI DE DOUBLEMENT" 

2040 REM = 
2050 GOSUB 6200 : K=1 

2060 REM PARAMETRES À UTILISER 


2070 G1#$="INTRODUISEZ LES DONNEES" : O2#="" 
2080 Q3#$="FERIODES FAR AN" : GOSUER 6800 
2090 G3#$="TAUX D'INTERET ANNUEL (%)" : GOSUER 6800 


2100 REM CALCULS 

2110 FRINT : FRINT'TEMFS FOUR DOUBLER (CANNEEC) "; TAR(28) 
2120 I=PAR(2)/100/FAR(1) 

2130 Y=LOG(2)/(FAR(1)#LOG(I+1)) 

2140 Y=INT(Y#100+.S)/100 

2150 PRINT USING"HHHHHH. HA: Y 

2135 REM UN AUTRE CALCUL 7? 

2160 Q2#="CALCULER" : GOSUK :400 

2170 IF NO#="N" THEN END ELSE GOTO 2050 








Figure 2.18 : Liste du programme : Délai de doublement 
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TAUX D'INTÉRÉT ÉQUIVALENT 


Description 


Dans la plupart des programmes de ce chapitre, on a posé comme 
hypothèse que le nombre des périodes de composition de l'intérêt 
correspond au nombre de versements effectués. Dans les cas où cette 
hypothèse ne convient pas, le présent programme permet de définir un 
taux d'intérêt équivalent. L'utilisation de ce programme nécessitera la 
prise en considération du taux d'intérêt annuel, du nombre de périodes 
de composition et du nombre de versements effectués par an. Le 
programme effectuera alors le calcul du taux d'intérêt équivalent qui 
sera celui que vous prendrez en compte. 


Exemple 


Vous faites des versements mensuels sur un compte de dépôt et vous 
souhaitez connaître le montant qu’atteindra votre investissement à une 
date donnée. L'intérêt pour ce compte est de 12 % l’an, composé par 
trimestre. Comme il est indiqué Figure 2.19, le tauxd’intérêt équivalent 
est de 11,88 6. C'est ce taux que vous devrez utiliser pour obtenir la 
solution cherchée lorsque vous mettrez en œuvre le programme de 
calcul de l’état d’un compte constitué par des dépôts réguliers. La liste 
du programme de calcul de lintérêt équivalent est donnée par la 
Figure 2.20. 
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TAUX D'INTERET EQUIVALENT 


TAUX D'INTERET ANNUEL 7.) 12.00 
NERE DE FERIODES INITIAL 4.0 
NOUVEAU NERE DE FERIODES 12.00 
TAUX D'INTERET EQUIVALENT 11.68 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N 70 


Figure 2.19 : Affichage à l'écran : Taux d'intérêt équivalent 





2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 





REM = 
N£="TAUX D'INTERET EQUIVALENT" 

RM 
GOSUE 6200 : K=1 


REM PARAMETRES À UTILISER 









Q1$="INTRODUISEZ LES DONNEES" : O2#="" 
QT$="TAUX D'INTERET ANNUEL (%)" : GOSUR 6600 
QS#="NERE DE FERIODES INITIAL" : GOSUEH 4600 
Q3#="NOUVEAU NRRE DE FERIODES" : GOSUH 8600 
I=PAR(1). : Q2=PAR(2) : C1=FAR(S) 
IEQ=01#(1+1/100/02)"(Q2/Q1)-Q1 


PRINT : PRINT'TAUX D'INTERET EQUIVALENT'";TARH:28) 
PRINT USING'"'###H#H#.##": IEQ#100 

Q2#="CALCULER" : GOSUR :400 

IF NO$="N" THEN END ELSE GOTO 22i0 








Figure 2.20 : Liste du programme : Taux d'intérêt équivalent 
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CATALOGUE DE PROGRAMMES FINANCIERS 


Toutes les listes des programmes de ce chapitre ont des lignes 
numérotées de manière distincte. Si vous rassemblez tous ces program- 
mes sur une seule cassette, vous pourrez utiliser le programme- 
catalogue figurant ici pour mettre en œuvre l’un ou l’autre d’entre eux. 
Ce catalogue est constitué de telle manière qu’il vous suffit pour cela de 
presser une seule touche. 

Rappelez-vous que l’utilisation d’un catalogue vous oblige à rempla- 
cer l'instruction END à la fin de la liste de chaque programme par 
l'instruction RETURN. Il vous faudra d’abord charger en mémoire vos 
programmes financiers, puis frapper au clavier la liste du programme 
de catalogue. Sauvegardez ensuite le tout au moyen de la commande 
SAVE. Vous trouverez le catalogue Figure 2.21. La liste du programme 
qui permet de l’obtenir est donnée par la Figure 2.22. 

Lorsque vous en avez fini avec un programme financier, vous pouvez 
revenir au BASIC pour charger un autre programme en tapant la 
touche de réinitialisation. 
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ETAT FREVISIONNEL D'UN COMFTE 

ET FREV D'ÜN CFT CONST FAR DEF REG 
VALEUR ACTUALISEE D'ÜNE CREANCE 
VAL ACT D'UNE CREANCE À TERME ECH 
VERS NECS A LA CONST D'UN CAF DON 
RETRAIT DE FONDS 

TAUX D'INT D'UN INVESTISSEMENT 

VAL ACT NET, FRODUITS DIiSF RRUIS 
DELAI DE DOURLEMENT 

TAUX D'INTERET EQUIVALENT 


nou 


CoODmuo bit) 
CUS | 


WI 


CHOISISSEZ LE PROGRAMME : 


Figure 2.21 : Affichage à l'écran : Catalogue de programmes financiers 





TOO IREM. STE SSSR 

110 N+="FROGFRAMMES FINANCIERS" 
REMISES RES SE ESS RSESSSEs= == 
GOSUER 6200 





14 REM DEFINITION DU CHAMF DU CATALOGUE 

150 X#(1)="ETAT FREVISIONNEL D'UN COMPTE" 

160 X#F(2)="ET FREV D'UN CFT CONST PAR DEP REG" 
170 X#(3)="VALEUR ACTUALISEE D'UNE CREANCE" 
189 X#(4)="VAL ACT D'UNE CREANCE À TERME ECH" 
199 XF(5)="VERS NECS À LA CONST D'UN CAP DON" 
266 X#F(6)="RETRAIT DE FONDS" 

210 X#(7)="TAUX D'INT D'UN INVESTISSEMENT" 

ZE0 X#(8)="VAL ACT NET, FRODUITS DISP BRUTS" 
230 X#(9)="DELAI DE DOURLEMENT" 

240 X#(10)="TAUX D'INTERET EQUIVALENT" 

245 REM AFFICHAGE DU CATALOGUE 

250 Z=10 : GOSUR 7060 

259 REM CHOIX DU FROGRAMME 

Zéûü ON X GOÜSLEH 280,490,690,860,1050,1240,1480,1660,2020,2180 
270 GOTO i00 





Figure 2.22 : Liste du programme : Catalogue de programmes financiers 
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PROGRAMMES DE 
GESTION COURANTE 


Dans ce chapitre figurent dix programmes d'aide à la gestion. Ils vous 
permettent d'établir des tableaux d’amortissement, de décider de 
l'importance d’une commande et de résoudre divers autres problèmes 
concernant les affaires. 

Par exemple, si vous lancez une affaire commerciale, si vous 
organisez un gala de bienfaisance, le programme de caleul du seuil de 
rentabilité vous indiquera le nombre d’articles où de billets de 
participation que vous devez vendre pour obtenir un bénéfice. Si vous 
êtes commerçant ou si vous employez un représentant de commerce, le 
programme de commission commerciale déterminera la commission 
correspondant à un volume donné de ventes. Le programme de 
rémunération du travail avec heures supplémentaires simplifiera le 
calcul du salaire correspondant à ce cas. Ce programme permet 
d'ajouter la paie en heures supplémentaires au traitement de base, de 
manière à déterminer le salaire global. Un programme d’aide à la 
décision vous aidera surtout. à distraire vos amis. 


44 





AMORTISSEMENT LINÉRAIRE 


Description 


Ce programme fournit le tableau d’un amortissement proportionnel au 
nombre d'années écoulées. Pour obtenir l'amortissement d’un bien, 
faites intervenir sa valeur comptable actuelle, sa valeur de revente 
estimée et sa durée de vie (en années). Si votre bien a une durée de vie 
supérieure à dix ans, le programme affiche le tableau concernant les dix 
premièrs années puis s'arrête. Lorsque vous êtes prêt à examiner les 
années allant de la onzième à la vingtième, appuyez sur l’une 
quelconque des touches et le tableau concernant ces années vient à 
l'affichage. 


Exemple 


Établissons le tableau d'amortissement d’une machine de bureau. La 
valeur actuelle de cette machine est de 40 000 F. Nous envisageons 
d'utiliser cette machine pendant six ans et de la revendre alors 8 000 F. 
La Figure 3.1 montre l'affichage du tableau d'amortissement. La Figure 
3.2 donne la liste du programme qui permet de l'obtenir. 








280 REM == —— 
N#="AMORTISSEMENT LINEAIRE" 

REM = — 
GOSUE 6200 : K=1 

REM FARAMETRES A UTILISER 











Figure 3.2 : Liste du programme : Amortissement linéaire 
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AMORTISSEMENT LINEAIRE 


VAL COMFTABLE ACTUELLE(F) 40000.00 
VALEUR DE REVENTE(F) 8000.00 
DUREE DE VIE EN ANNEES 8.00 





ANNEES  GMORT(F) VALEUR (F: 
1 5 T4666.70 
2 5 d 
3 5 
3 S 
5 5 
ë 5 


- VOGLE Z -VOUS 
CALCULER 
DE NOUVEAU O OÙ N ?0 





Figure 3.1 : Affichage à l'écran : Amortissement linéaire 











="INTRODUISEZ LES DONNEES" : Q2$="" 

“VAL COMPTABLE ACTUELLE(F)" : GOSUB 6600 
='"VALEUR DE REVENTE(F)" : GOSUB 6600 

T60 "DUREE DE VIE EN ANNEES" : GOSUB 6600 
370 REM AFFICHAGE DU TABLEAU DE L'AMORTISSEMENT 
280 D=(FAR(1) -FAR(2)) /FAR(I) 

5706 FRINT 

406 FRINT'"ANNEES AMORT(F) VALEUR(F)" 

4is FOR A=1 TO FAR(CS) 

426 FRINT A:TAER(6);: 

435 PRINT USING'#######. #43 D, PAR (1) -D#A 

44 [F ASY12 THEN 470 

445 REM ON ATTEND LA FRAFFE D'UNE TOUCHE 

420 GOSUR 7400 

455 REM ON REVIENT AU DEFART 

460 LOCATE 1,8 

47û NEXT À 

480 GZ$f="CALCULER" : GOSUR 3400 

490 IF NO$="N" THEN END ELSE GOTO 280 








Figure 3.2 : Liste du programme : Amortissement linéaire (suite) 
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AMORTISSEMENT DÉGRESSIF 


Description 


Ce programme permet d'établir facilement des tableaux utilisant la 
méthode du bilan dégressif qui est une méthode d’amortissement 
accéléré. Les méthodes d'amortissement accéléré sont souvent utilisées 
pour obtenir un meilleur traitement fiscal que celui obtenu par 
utilisation des méthodes d'amortissement linéaire. La méthode du 
bilan dégressif consiste à multiplier la valeur comptable restante d’un 
bien par un facteur d’accélération:-et à la diviser ensuite par la durée de 
vie du bien (en années). Vous ferez intervenir la valeur comptable 
initiale du bien, sa durée de vie et le facteur d'accélération. Les facteurs 
d'accélération usuels sont 150 %, 175 % et 200 %: la valeur de revente 


n'est pas utilisée. 


Exemple 


Déterminons l'amortissement de la machine de bureau de l'exemple 
précédent par la méthode du bilan dégressif. Pour cet exemple nous 
utiliserons un facteur d’accélération de 150 %. Le tableau d’amortis- 
sement est donné par la Figure 3.3 et la liste du programme par la 
Figure 3.4. 





SOO REM == 
310 NF="AMORTISSEMENT DEGRESSIF" 

GLO REM ee 
519 GUSUR 6200 : K=i 

S40 REM FARAMETRES À UTILISER 





Figure 3.4 : Liste du programme : Amortissement dégressif 
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AMORTISSEMENT DEGRESSIF 


VAL COMPTABLE (F) 49000, 00 
DUREE DE VIE (ANN) 6.00 
% DE DEFREC ACCELER 150.00 


ANNEE AMORT(F)  VALEURIF) 

i 10000.00  70000.00 
7500.00 22560, 00 
5625.00 16875.00 
4218.75 12656. :0 
7164.06 7492.19 
75,05 7119.14 








0- CN & ia 


VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 GÙU N 7O 


Figure 3.3 : Affichage à l'écran : Amortissement dégressif 











Q1#="INTRODUISEZ LES DONNEES" : OZ#="" 
"VAL COMFTABLE (F)" : GOSUR 6600 
DUREE DE VIE (ANN)" : GOSUER 6690 
OZ#=" % DE DEFREC ACCELER" : GOSUR 6600 
REM AFFICHAGE DU TABLEAU DE L'AMORIISSEMENT 
RV=FAR (1) 

FRINT 

FRINT'"ANNEE AMORT(F)  VALEUR(F)" 

FOR A=1 TO FAR(2) 

PRINT A; TAR(6); 

D=RVXPAR (3) /100G/FAR (2) 

FRINT USING'H#H#H#H#4HEH. #4: D, RV-D 

RV=RV-D 

IF ASY12 THEN 719 

REM ON ATTEND 





: GOSLE 7400 


LOCATE 1,8 

NEXT À 

REM UN AUTRE CALCUL 7 
GZ+="CALCULER" : GOSUE 23400 

IF NO$="N" THEN END ELSE 3SOTD 5060 





Figure 3.4 : Liste du programme : Amortissement dégressif (suite) 
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AMORTISSEMENT PAR ANNÉES CUMULÉES 


Description 


Voici une deuxième méthode d'amortissement accéléré : l’amortisse- 
ment par années cumulées. Dans cette méthode d'amortissement, on 
multiplie la valeur comptable restante par le rapport entre le nombre 
d'années à courir et le nombre des années cumulées. Si la durée de vie 
d’un bien est de cinq ans la somme des années de vie est 


o+A4+3+2+1= 15. 


Il vous faudra là encore faire intervenir la valeur comptable actuelle, 
la valeur de revente et la durée de vie du bien. Votre ordinateur 
simplifiera considérablement l’opération. 


Exemple 


Établissons un tableau d'amortissement par années cumulées pour le 
copieur de bureau des exemples précédents. Ce tableau est celui de la 
Figure 3.5; la liste du programme correspondant apparaît Figu- 
re 3.6. 












740 REM 
750 N$="AMORTISSEMENT FAR ANNEES CUMULEES" 
760 REM 
770 GOSUB 6200 : K=1 

REM PARAMETRES A UTILISER 








Figure 3.6 : Liste du programme : Amortissement par années cumulées 


49 


Programmes de gestion courante 








ANGRTISSEMENT FAR ANNEES CUMULEES 


VALEUR COMPTABLE (F) 40000.00 
VALEUR DE REVENTE (F) 80GG. OC 
DUREE DE VIE (ANNEES) 8.00 


D 


CUbiatie Zz 
2 
m 
m 


AMORT (F) VALEUR {F 
9142.86 30857.10 
7619.05 232: 
4095.24  17142.90 
4571.43 12571.40 
2047.62 527.81 

S25.81 8000. 00 






VOULEZ-VOUS 
CALCULER 
CE NOUVEAU QO OÙ N 70 


Figure 3.5 : Affichage à l'écran : Amortissement par années cumulées 








790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
950 
940 
950 
960 
965 
970 
980 


G1#$="INTRODUISEZ LES DONNEES" : @Q2$="" 
Q3$="VALEUR COMPTABLE (F)" : GOSUR 6600 
O5$="VALEUR DE REVENTE (F)" GOSUR 6600 
QS$="DUREE DE VIE (ANNEES) * GOSUR 6600 
REM AFFICHAGE DU TAHLEAU D'AMORTISSEMENT 
D=PAR(1)-FAR(2) 

RV=PAR (1) 

PRINT 

PRINT'"ANNEE AMORT (F)  VALEUR(F)" 

FOR A=1 TO PAR(S) 

D1=D* (PAR (3) +1-A) / (FAR(3) # (PAR(Z) +1) /2) 
PRINT A; TAB(6); 

PRINT USING"#######. ##"; D1,RV-D1 
RV=RV-D1 

IF A<>12 THEN 960 

GOSUB 7400 

LOCATE 1,8 

NEXT À 

REM UN AUTRE CALCUL 7? 

Q2+#="CALCULER" : GOSUR 3400 

IF NO$="N" THEN END ELSE GOTO 740 





Figure 3.6 : Liste du programme : 
Amortissement par années cumulées (suite) 
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SEUIL DE RENTABILITÉ 


Description 


Ce programme permet à une entreprise commerciale de déterminer, 
pour un type de produit, le nombre d’articles qu’il est nécessaire de 
vendre pour atteindre le seuil de rentabilité. A cette fin, on prendra en 
compte les frais généraux de l’entreprise, le prix de revient du produit à 
l'unité (fabrication ou achat) et le prix de vente à l’unité. 


Exemple 


Henri achète des articles 24 F chaque et projette de les vendre par 
correspondance 48F. S'il a l'intention de dépenser 12000F en 
publicité, combien d'articles doit-il vendre pour atteindre le seuil de 
rentabilité? L'affichage à l'écran concernant cet exemple est donné par 
la Figure 3.7 et la liste du programme par la Figure 3.8. 
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SEUIL DE RENTABILITE 


FRAIS GENERAUX (F) 12000.00 
COUT FAR UNITE 24.0 
PRIX DE VENTE (F) 48.00 
SEUIL DE RENTABILITE -: 300 UNITES 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 3.7 : Affichage à l'écran : Seuil de rentabilité 








990 REM ---— 
1000 N#="SEUIL DE RENTARILITE" 

1010 REM 
1020 GOSUE 6200 : KH=1 

1030 REM PARAMETRES A UTILISER 








1040 Q1#='"INTRODUISEZ LES DONNEES" : O2#-"" 
1050 ="FRAIS GENERAUX (F)" : GOSUR 6650 
1060 ="COUT FAR UNITE" : GOSUR 66800 

1070 QZ#$="FRIX DE VENTE (F)" : GOSUE 6650 
1080 FRINT 

1090 FRINT'SEUIL DE RENTABILITE -: "; 


1100 US=INT(FAR(1)/(FAR(S)-FAR(2))#100+.5)/100 
1110 FRINT USING"#####"; US; : FRINT" UNIIES" 
1115 REM UN AUTRE CALCUL ? 

1120 Q7+="CALCULER" : GOSUR 3400 

1150 IF NO$="N" THEN END ELSE GOTO 950 





Figure 3.8 : Liste du programme : Seuil de rentabilité 
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OPTIMISATION DES ORDRES D'ACHAT 


Description 


Les économistes ont mis au point une méthode permettant aux chefs 
d'entreprise de calculer le nombre optimum d'articles que doit 
comporter une commande. Ce programme exécute pour vous un tel 
calcul. Pour lutiliser, il vous faut faire intervenir le prix de revient 
d'un ordre d'achat, le nombre d’articles nécessaires pour un an et le 
prix annuel courant par article. Le prix courant est obtenu en 
multipliant le taux de rentabilité de votre entreprise par le prix d’achat 
par article. 


Exemple 


Raymond est le directeur de production d’une petite entreprise. Il 
souhaite calculer le nombre optimal de pompes devant figurer sur 
chacune des commandes effectuées pour les besoins de l’usine. Cette 
usine utilise 15 000 pompes par an. Le prix courant d’une pompe est de 
40F et le coût d’un ordre d'achat de 600 F. Quelle est la quantité 
optimale de pompes par commande? La Figure 3.9 donne le résultat de 
l'analyse de Raymond et la Figure 3.10 la liste du programme 
correspondant. 
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OFTIMISATION DES ORDRES D'ACHAT 


COUT D'UN ORD D'ACHAT (F) 690.00 
NOMERE D'ARTICLES FAR AN  15000.00 
PRIX COURANT FAR UNITE 40.00 


NBRE D'ARTICL FAR COMMANDE= 676 UNITES 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU Q OÙ N 70 





Figure 3.9 : Affichage à l'écran : Optimisation des ordres d'achat 








REM = 
N+="OFTIMISATION DES ORDRES D'ACHAT" 

REM = —— 

GOSUR 6206 : K=1 

REM FARAMETRES A UTILISER 

G1$="INTRODUISEZ LES DONNEES" : Q2$="" 

GS#= "COUT D'UN ORD D'ACHAT (F)" :GOSUB 6600 
QZ#$="NOMBRE D'ARTICLES FAR AN“ : GOSUB 6600 









GZ#="FRIX COURANT FAR UNITE" : GOSUB 6600 
REM CALCUL ET AFFICHAGE 
PRINT 


NAC=INT (SCOR (PXFAR (1) FAR (2) /FAR (CZ) )) 
FRINT'NEBRE D'ARTICL FAR COMMANDE=" ; 
PRINT USING'"##H####": NAC; 

FRINT'" UNITES" 

REM UN AUTRE CALCUL 7 
02+#="CALCULER" : GOSUB 3400 

IF NOF="N" THEN END ELSE GOTO 1140 














Figure 3.10 : Liste du programme : Optimisation des ordres d'achat 
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PRIX DE VENTE AVEC REMISE 


Description 


Ce programme vous servira à calculer ce que vous coûtera, toutes taxes 
comprises, un article vendu avec remise. Indications à fournir : le prix 
hors taxe, le pourcentage de remise et le taux de la taxe. 


Exemple 


Elisabeth désire acheter un récepteur de radio vendu avec un rabais de 
15 %. Le prix de détail du récepteur est de 2 800 F et les taxes à la vente 
de 33,33 Co. Combien Elisabeth aura-t-elle à payer? La Figure 3.11 
représente l'affichage à l'écran pour cet exemple et la Figure 3.12 celui 
de la liste du programme. 





1310 REM 
1:20 Nt="FRIX DE VENTE AVEC REMISE" 
1:20 REM D 


1:40 GOSUE 600 : = 
1250 KEM FARAMETRES À UTILISER 








Figure 3.12: Liste du programme : Prix de vente avec remise 
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FRIX DE VENTE AVEC REMISE 


PRIX DE DETAIL (F) 2800.00 

REMISE (%} 15.00 

TAUX DES TAXES (7) 33.335 
FRIX 2800.90 
REMISE 420.00 
TAXE 795.25 
TOTAL 3173.25 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 3.11 : Affichage à l'écran : Prix de vente avec remise 














17:60 G1#+="INTRODUISEZ LES DONNEES" : Q2$="" 






270 Q7T#="PRIX DE DETAIL (F)" : GOSUB 6600 
1580 GIf="REMISE (%)" : GOSUR 6600 
1790 QZ+="TAUX DES TAXES (2)" : GOSUE 6600 


1490 REM CAiCUL ET AFFICHAGE 

1410 FRINT 

1420 FRINT"  FRIX'";TAR(28); 

14: FRINT USING'"'#H##H.#H#";: FAR (1) 
1446 D=FAR(1) PAR (2) /10Ù 

1456 FRINT" REMISE"; TAH(28); 

1460 FRINT USING'"'##H#H##. #4": D 

1470 T=(FAR(1) -D) xFAR(3) /100 

1480 FRINT"  TAXE'";TAR(28); 

1490 PRINT USING'##H#H#H#.H#H':T 

1500 FRINT 

1510 FRINT'"'TOTAL";TAR(E8) ; 

9320 PRINT USING'"####.##°"3; PAR (1) -D+T 
13525 REM UN AUTRE CALCUL 7? 

1530 Q2#="CALCULER" : GOSUEH 3400 
1540 IF NO#='"N" THEN END ELSE GOTO 1710 








Figure 3.12: Liste du programme : Prix de vente avec remise (suite) 
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COÛT MOYEN PONDÉRÉ 


Description 


Il est fréquent d’avoir à calculer le coût moyen pondéré d’un certain 
nombre d’articles. La méthode de la moyenne pondérée peut être 
utilisée pour obtenir le coût moyen des articles d’un stock lorsqu'il a 
été acheté par lots à des dates et à des prix différents, et aussi la valeur 
d'inventaire lorsque des articles semblables ont été achetés à différents 
prix. 

Ce programme permet de calculer rapidement le coût moyen pondéré 
de plusieurs séries d'articles. Introduisez pour chaque article la valeur à 
l'unité suivie par le nombre d’unités. Pour terminer, frappez O0 pour la 
valeur à l’unité et O pour le nombre d’unités. 


Exemple 


Louis procède à l’achat de stocks d’une maison d’électronique. Il a 
l'intention de calculer le coût moyen des lots. Il a acheté quatre lots à 
80 F chaque, quatre lots à 320 F chaque et deux lots à 480 F chaque. 
Les Figures 3.13 et 3.14 montrent le résultat du calcul et la liste du 
programme. 








N+$="VALEUR MOYENNE FONDEREE" 

1970 REM: = SSSR SES SSSR TS Se 

1580 DIM D(100,1) 

1590 GOSUR 6200 : K=1 

1600 REM FARAMETRES À UTILISER 

1610 FRINT"'INTRODUISEZ LES DONNEES, TAFEZ ENTREE" 








Figure 3.14: Liste du programme : Valeur moyenne pondérée 








1620 
1630 
1640 
1850 
1669 
1670 
1680 
1690 
1700 
1719 
1720 
17:50 
1740 
1750 
1760 
1770 
1780 
1799 
1800 
1810 
1815 
1826 
1850 
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VALEUR MOYENNE FONDEREE 


INTRODUISEZ LES DONNEES, TAPEZ ENTREE 


VALEUR UNITES 
7 80 7 4 
7? 320 7 4 
7 480 ?,2 
7? Ô 7 Ô 
LA VALEUR MOYENNE FONDEREE EST: 256 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 





Figure 3.13 : Affichage à l'écran : Valeur moyenne pondérée 





FRINT : PRINT"'VALEUR UNITES" 
ND=Q 

J=7 

LOCATE 1,9 : FRINI" "3 
LOCATE 1,J : INFUT DiND,0) 

LOCATE 12,J 3: INFUT DiND.1) 

IF DIND,1)=0 THEN 1726 

ND=ND+1 

J=J+1 

IF J=17 THEN 1640 ELSE 1650 

REM CALCULS ET AFFICHAGE 

AVE=O : U=QO 

FOR I=0 TO ND-1 
AVE=AVE+D(I,0)#D(I,1) 

U=iy+D(I,1) 

NEXT I 

AVE=AVE /UÙU 

LOCATE 1,16 

FRINT"'LA VALEUR MOYENNE FONDEREE EST:"; 
FRINT USING'"######H#" 3: AVE 

REM UN AUTRE CALCUL 7 
Q2+="CALCULER" : GOSUB :400 

IF NO$='"N" THEN END ELSE GOTO 1595 





Figure 3.14 : Liste du programme : Valeur moyenne pondérée (suite) 
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COMMISSION COMMERCIALE 


Description 


Ce programme permet de calculer la commission due à un agent 
commercial. Prendre en compte la rémunération fixe mensuelle de 
cette personne, le volume mensuel de ses ventes et sa commission en 

3° # za a D] | # … 
pourcentage. Si le résultat est négatif c’est que le quota n’a pas été 
atteint. 


Exemple 


Samuel Spade a un traitement fixe mensuel de 9 600 F. Il a une 
commission de 6 % sur ses ventes de mobilier. Quelle est sa commis- 
sion pour un mois durant lequel il a vendu pour 200 000 F de meubles ? 
Les Figures 3.15 et 3.16 donnent l'affichage à l’écran du résultat et la 
liste du programme. 
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COMMISSION COMMERCIALE 


FIXE MENSUEL (F) 9600.00 
VENTES MENSUELLES (F) 200G0Q. 0C 
COMMISSION (%) 6.0 


MONTANT DE LA COMMISSION 
À FERCEVOIR (FIXE DEFALQUE) 





VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N ?0 


Figure 3.15 : Affichage à l'écran : Commission commerciale 








1840 REM 
1850 N#="COMMISSION COMMERCIALE" 
1860 REM = 
:870 GOSUR 6200 : K=1 

1980 REM FARAMETRES A UTILISER 






1890 +="INTRODUISEZ LES DONNEES" : O2#="" 
1900 ‘FIXE MENSUEL (F)" : GOSUR 4600 

1916 VENTES MENSUELLES (F)" : GOSUR é6e0û 
1920 Q5$="COMMISSION (4)" : GOSUR 6600 


i9:0 REM CALCULS ET AFFICHAGE 

1940 FRINT 

1950 FRINT'MONTANT DE LA COMMISSION"; FAR(S 0) 

1960 FRINT USING'####4#.##°"3: FAR C2) FAR (2) /100 

1970 FRINT"'A PERCEVOIR (FIXE DEFALQUE)":;TAR(Z30) 
1989 FRINT USING'"#####. #4"; PAR C2) #FAR (3) /100-FAR 1) 
1985 REM UN AUTRE CALCUL 7? 

1990 O2#="CALCULER" : GOSUR z400 

2000 IF NO#="N" THEN END ELSE GOTO 1845 














Figure 3.16 : Liste du programme : Commission commerciale 
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PAIE AVEC HEURES SUPPLÉMENTAIRES 


Description 


I s’agit ici de calculer aisément le traitement global d’un employé qui 
perçoit une paie en heures supplémentaires en plus de son salaire de 
base. Vous faites intervenir le salaire horaire de base, le coefficient de 
sursalaire et le nombre d’heures réglementaires et d’heures supplémen- 
taires durant lesquelles l'employé a travaillé. 


Exemple 


Antoine, mécanicien, perçoit un salaire horaire de 40 F. Au cours d’une 
semaine particulièrement chargée il effectue ses 39 heures réglemen- 
taires et 12 heures supplémentaires. Vous désirez calculer son traite- 
ment global avec un coefficient de sursalaire de 1,5. Les Figures 3.17 et 
3.18 donnent le résultat du calcul et la liste du programme. 
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FAIE AVEC HEURES SUFFLEMENTAIRES 


SAL HOR DE HASE (F/HS) 40.06 
COEFFICIENT DE SURSALAIRE 1.30 
NOMBRE D'HEURES REGLEMENT 39.00 
NOMBRE D'HEURES SUPFLEM 12.00 
SALAIRE DE BASE 1560.00 
HEURES SUFFLEMENTAIRES 720.00 
SALAIRE TOTAL 2280.00 


—VOULE Z-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 3.17 : Affichage à l'écran : Paie avec heures supplémentaires 





2010 REM =" 
2020 N$="FAIE AVEC HEURES SUFFLEMENTAIRES" 
2030 REM =" 
2040 GOSUE 6200 : K=1 

2050 REM FARAMETRES A UTILISER 


2060 G1#="INTRODUISEZ LES DONNEES" : O2#="" 

2070 Q3$="SAL HOR DE HASE (F/HS)" : GOSUR 6600 
2080 Q3+t="COEFFICIENT DE SURSALAIRE" : COSUÜER 6690 
2090 Q35+#="NOMERE D'HEURES REGLEMENT" : GOSUEH 6600 


2100 Q3S$-='"'NOMBRE D'HEURES SUFFLEM" : GOSUER 6600 
2110 REM CALCULS ET AFFICHAGE 
2120 FRINT 


2150 PRINT" SALAIRE DE BASE "; TAR(:O) 

2140 PRINT USING"####.##H#": FAR C1) #FAR CZ) 

2150 PRINT " HEURES SUFFLEMENTAIRES"; TA& (Zu) 
2160 PRINT USING'##HH#.H#°": FAR C1) FAR C2) #FAR (4) 
2170 FRINT" SALAIRE TOTAL": TARH(IO) 


2180 PRINT USING'"H####. #4": FAR C1) FAR (TZ) +FAR C1) FAR CES #F AR 4) 
2185 REM UN AUTRE CALCUL 7? 

2190 QZ#="CALCULER" : GOSUR 3400 

2200 IF NO$="N" THEN END ELSE GOTU ?uic 





Figure 3.18 : Liste du programme : Paie avec heures supplémentaires 
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AIDE À LA DÉCISION 


Description 


Enfin, si vous avez encore des problèmes, si vos amis ont des 

problèmes, ce programme est prévu pour vous aider à prendre 

l’importante décision qui change radicalement le cours d’une existence. 

Interrogez votre ordinateur. Mais cette fois, considérez-le comme un 
ñ 

plaisant partenaire qui amusera vos invités. 


Exemple 


Edmond hésite à se laisser séduire par un projet fort audacieux. En 
l'absence d'une réponse ferme des membres de son conseil, il interroge 
son ordinateur ainsi qu'il est indiqué Figure 3.19. La liste du 
programme est donnée par la Figure 3.20. 
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AIDE À LA DECISION 


VEUILLEZ FOSER VOTRE QUESTION 
=}? CE FROJET ABOUTIRA-T-IL * 
IL VAUT MIEUX QUE VOUS Y CROYIEZ 


—VOULEZ-VOUS 
FOSER UNE QUESTION 
DE NOUVEAU O OÙ N 70 


Figure 3.19: Affichage à l'écran : Aide à la décision 





REM 
NF="AIDE À LA DECISION" 

REM - 

GOSUE 6200 : K=1 

FRINT'VEUILLEZ FOSER VOTRE QUESTION" 
PRINT"=>"; 

INFUT Q$ : Y=LEN(D#) 

IF Y<é THEN 2300 

Y=INT(Y/2) : GOTO 2780 

ON Y GOTO 2310,2320,2320,2240,2250 
PRINT'PAS DURANT VOTRE VIE" : GOTO 2760 








FRINT'ALLEZ-Y !" : GOTO 2:60 

FRINT'"IL VAUT MIEUX QUE VOUS Y CROYIEZ" : GÜITD 2:60 
FRINT'RISQOLEZ TOUT DE MEME UNE FIECE" : GOT0 2ïév 
PRINT"'ARRETEZ TOUT-RAFIDEMENT" 

D2+="POSER UNE QUESTION" : GOSUER 3450 





IF NO="N" THEN END ELSE GOTO 2710 





Figure 3.20 : Liste du programme : Aide à la décision 
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CATALOGUE DE PROGRAMMES DE GESTION 


Si vous effectuez la sauvegarde de tous les programmes de ce chapitre 
sur une seule cassette, joignez-y le programme qui en réalise le 
catalogue. Vous choisirez ensuite vos programmes en utilisant les 
touches chiffres de votre clavier. N'oubliez pas de remplacer l’instruc- 
tion END de chaque programme par une instruction RETURN. Avant 
d'utiliser le catalogue, reportez-vous aux instructions d'utilisation d’un 
catalogue au Chapitre 2. Les Figures 3.21 et 3.22 représentent le 
catalogue et la liste du programme qui permet de l’obtenir. 
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= AMDRTISSEMENT LINEAIRE 

= AMORTISSEMENT DEGRESSIF 
AMORTISSEMENT FAR AN CÜMULELS 
SEUIL DE RENTABILITE 
OPTIMISATION DES ORDRES D ACHAT 
FRIX DE VENTE AVEC REMISE 

COUT MOYEN FONDERE 

COMMISSION COMMERCIALE 

FAIE AVEC HEURES SUFFLEMENTAIRES 
AIDE À LA DECISION 


CU 


CID ANe 


WU WU 








Figure 3.21 : Affichage à l'écran : Catalogue de programmes de gestion 








00 RENM 
110 N#="FROGRAMMES DE GESTION" 
120 REM === 


150 GOSUR 6200 

149 REM DEFINITION DU CHAMP DU CATALOGUE 

150 X#F(1)="AMORTISSEMENT LINEAIRE" 

1680 XF(2)="AMORTISSEMENT DEGRESSIF" 

79 X#F(E)="AMORTISSEMENT PAR AN CUMULEES" 
XE(4)="SEUIL DE RENTABILITE" 
XH(5)="OPTIMISATION DES ORDRES D'ACHAT" 
XF(6)="PRIX DE VENTE AVEC REMISE" 
X#(7)="COUT MOYEN PONDERE" 

XF (8) ="COMMISSION COMMERCIALE" 
X#(9)="PAIE AVEC HEURES SUPPLEMENTAIRES" 
XH(10)="AIDE À LA DECISION" 

Z=10 : GOSUEB 7000 

GN X GOSUB 280,500,740,990,1140,1310,1550,1840,2010,2710 
GOTO 100 











la 
Figure 3.22 : Liste du programme : Catalogue de programmes de gestion 





A 


PROGRAMMES 
DE GESTION 
IMMOBILIÈRE 


Huit programmes de gestion immobilière figurent dans ce chapitre. Ils 
réalisent pour vous, entre autres calculs pratiques, des tableaux de 
remboursement d’hypothèques. 

Parmi les programmes présentés, deux sont particulièrement utiles. 
Le premier, Acquisition d’une maison, vous servira à déterminer la 
gamme de prix correspondant à vos possibilités financières en vue de 
l’achat d’une maison, en tenant compte des modalités des prêts 
bancaires. Le second programme est appelé Remboursement accéléré. 
Une petite augmentation de vos versements mensuels peut réduire 
radicalement les intérêts que vous aurez à débourser pour l'achat à 
crédit d’une maison. Voyez la Figure 4.8 et vous en serez vite 
convaincu. 

Ce chapitre, comme les précédents, comprend un programme 
catalogue qui vous permettra de faire votre choix parmi l’ensemble des 
programmes de gestion immobilière que vous allez constituer. 
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SOUS-PROGRAMMES DE GESTION IMMOBILIÈRE 


Les programmes de ce chapitre font usage de trois sous-programmes 
généraux. Chargez tout d’abord SUBLIB puis tapez les sous-program- 
mes de la Figure 4.1 et sauvegardez l’ensemble sous un nouveau nom. 
Lorsque vous serez prêt à utiliser un programme, vous devrez charger 
ces sous-programmes en mémoire, puis introduire le programme et 
ensuite effectuer la sauvegarde de l’ensemble. Si vous voulez utiliser le 
catalogue pour effectuer un choix, sauvegardez tous les programmes de 
ce chapitre, ainsi que les sous-programmes, dans le même fichier. Les 
listes des sous-programmes communs sont exposées Figure 4.1. Ils 
servent à préparer l'introduction de données pour les calculs de 
versement, de paiement et pour les calculs de bilan d’un prêt. 
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REM 


à REM 
) RKEM 
REM 
G1+# 
QZ 
OZ 


At 












AFFEL DES PARAMETRES 
IN=TAUX D'INTERET ANNUEL 
AN=NO DES ANNEES 
MO=MONTANT DU PRET 


Ni=1Z#AN : I1=IN/100/12 : V=1/(1+11) 
5 F=MO#xI1/(1-VTN1) 
RETURN 


INTRODUCTION DES DONNEES POUR LE CALCUL DES VERSEMENTS 


="DEFINITION DES PARAMETRES" : Q2$="" 


"MONTANT DE L'EMPRUNT (F)" : GOSUB 6600 
"TAUX D'INTERET ANNUEL (%)" : GOSUB 6600 


OS+#="DUREE DU FRET (ANNEES)" : GOSUB 6600 
MO=FAR (1) 
IN=FAR (2) 
FAR (3) 


CG RETURN 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
Oo REM 
: FGR 


AFPEL DES PARAMETRES 
F=VERSEMENT 

IN=TAUX D'INTERET ANNUEL 
N=NOMBRE DE VERSEMENTS 
MO=MONTANT DU PRET 

I=1i T0 Z 


MO=MO-F+IN/12/100%M0 
i NEXT I 


380 RETURN 











Figure 4.1 : Liste du programme : 
Sous-programme de gestion immobilière 


70 





VERSEMENTS MENSUELS 


Description 


Ce programme permet de connaître le montant des versements 
nécessaires pour l’amortissement complet d’un prêt. Vous devez donner 
le montant du prêt, le taux d'intérêt annuel, et la durée du prêt (en 
années). 


Exemple 


Daniel et Danièle vont acheter une maison 800 000 F. Ils ont l’inten- 
ton de faire un versement comptant de 200 000 F et de payer le reste 
du montant de leur achat par remboursement d’un prêt à 12 % sur 
30 ans. À combien s’élèveront leurs versements mensuels? Les Figu- 
res 4.2 et 4.3 montrent l'affichage à l’écran et la liste du programme 
concernant cet exemple. 
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CALCUL DES VERSEMENTS MENSUELS 


MONTANT DE L'EMFRUNT (F) 600000. 00 


TAUX D'INTERET ANNUEL (%) 12-00 
DUREE DU FRET (ANNEES) 30.00 
LE VERSEMENT MENSUEL EST 6171.68 


—VOÜGLE 2 - VOUS 
CALCULER 
DE NOUVEAU O OU N 70 


Figure 4.2 : Affichage à l'écran : Calcul des versements mensuels 








600 
610 
20 





855 
649 
650 
680 
670 
675 
680 
690 


N+#="CALCUL DES VERSEMENTS MENSUELS" 
REMY ESS SE SEE ee Te ne 
GOSUER 6200 : K=1 

REM INTRODUCTION DES FARAMETRES 
GOSUR 2:60 

REM CALCUL DES VERSEMENTS 

GOSUR 250 

FRINT 

FRINT'LE VERSEMENT MENSUEL EST"; TAR(29) 
FRINT USING'H#H##H#HH.HH'3;F 

REM UN AUTRE CALCUL 7 

Q2#="CALCULER" : GOSURH 7400 

IF NO$="N" THEN END ELSE GOTO 620 











Figure 4.3 : Liste du programme : Calcul des versements mensuels 
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BILAN D'UNE HYPOTHÈQUE 


Description 


Ce programme affiche sur l’écran le tableau correspondant au bilan 
d’une hypothèque pour l’année que vous choisissez. Prenez en compte 
le montant du prêt, le taux d’intérêt annuel, la durée de ce prêt et 
l’année pour laquelle vous voulez que le tableau soit affiché. Il vous est 
ainsi possible de retrouver rapidement, pour n'importe quelle année, le 
montant de ce que vous remboursez en intérêt et capital. L'intérêt versé 
est déductible de l’impôt sur le revenu. 


Exemple 


L’hypothèque dont fait l’objet la maison de Samuel et de Solange est de 
480 000 F. Le taux d'intérêt annuel du prêt est de 11,5 % et la durée de 
ce dernier de 25 ans. Samuel et Solange veulent savoir combien ils 
rembourseront en intérêt et capital au cours de la sixième année de leur 
emprunt. La Figure 4.4 donne l’affichage à l’écran pour cet exemple. La 
liste du programme est exposée Figure 4.5. 
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BicAN D UNE hYFOTHEQUE 


MONTANT DE L'EMPRUNT (F3 4Bruouss, One 
TAUX D'INIERET ANNUEL (%) fi.cus 
DUREE DU FRET (ANNEES) 23.00 
ANNEE &. tn 
MIRE CAFITAL INTERET “It Ar 
494.58 4184.49 427017. 
499.32 5 45e S1u. 00 















204.11 4%6014.00 
508.94 : 455509. 00 
354991. 00 


S17.8i 


éé.oû 454472.00 
67. 01 474%. 110 
58.00 51420. 150 
7.0 


422€86. 00 


VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N ?0 


Figure 4.4 : Affichage à l'écran : Bilan d'une hypothèque 








EM 
710 N#="BILAN D'UNE HYFOTHEQUE" 
FLOUREM = ES ESS 
720 GOSUR 6200 : K=i 
74S REM FARAMETRES DU FRET 
745 GOSUR 360 
759 Q35#$="ANNEE" 
780 GOSUR 6600 : Z=PFAR(4) 
770 GOSUE 250 
790 Z=1i2#2Z-12 
790 GOSUE 47ü 
800 FRINT" MOIS CAPITAL INTERET BILAN" 
810 FOR J=i TO 12 
820 I11=IN/12/100#M0 : Fi=F-11 : MO=MO-P1 
8230 FRINT USING'H#HH#HH#HH.H## "3; 2Z+1:P13: 11: MO; 
840 Z=2+1 
850 NEXT J 
860 Q2#="CALCULER" : GOSUR 3400 
870 IF NO#$="N" THEN END ELSE GOTO 700 








Figure 4.5 : Liste du programme : Bilan d'une hypothèque 
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BILAN COURANT D'UN PRÊT 


Description 


Ce programme permet d'obtenir le bilan courant d’un prêt. Il sert à 
calculer le montant du paiement comptant qui correspondrait à la 
période de crédit écoulée depuis le début de l’emprunt. On suppose que 
tous les versements antérieurs ont été effectués dans les délais 
convenus. Vous ferez intervenir le montant de l’hypothèque, le taux de 
l'intérêt, la durée globale du prêt et le nombre des versements qui font 
l’objet du calcul de bilan. Le programme ne donnera sa réponse 
qu'après un certain délai. 


Exemple 


Le montant de l’hypothèque souscrite par Jean est de 720 000 F. Son 
prêt lui a été accordé pour 30 ans à un taux d'intérêt annuel de 9 %. Il 
désire calculer le bilan courant de son prêt à la fin de la cinquième 
année. Les Figures 4.6 et 4.7 montrent l'affichage et la liste du 
programme de bilan courant. 
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E:LAN CORAN 


MONTANT DE L'EMPRUNT :F) 7Tuoûuu. 00 
TAUX D'INTERET ANNUEL (7%) 9.00 
DUREE DU FRET (ANNEES) IQ, uO 
NOMBRE DE VERSEMENTS 60.00 
VERSEMENT MENSUEL 5795.71 
BILAN AFRES 60  VERSMTS 4901:5.00 


--VOULE Z -VOUS 
CALCULER 
DE NOUVEAU O0 OÙ N ?0 


Figure 4.6 : Affichage à l'écran : Bilan courant 





880 REM ----————————————————— 
890 N$="HILAN COURANT 

900 REM 
910 GOSUH 6200 : KE 
920 GOSUR 360 

930 O35$="NOMBRE DE VERSEMENTS" 

940 GOSUEH 6600 : Z=FAR(4) 

950 GOSUR 250 « 

960 GOSUR 470 

970 FRINT 

980 FRINT'VERSEMENT MENSLEL":TAR(28) ; 

990 FRINT USING'"'#H#H#HHHH.HH"SF 

1000 FRINT'RILAN AFRES ";723" VERSMIS"; FACE): 
1010 PRINT USING'##H###H#H##4.#H": MO 

1020 Q2#="CALCULER" : GOSLER 1400 

1036 IF NO$="N" THEN END EiSE GGT0 88û 








Figure 4.7 : Liste du programme : Bilan courant 
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REMBOURSEMENT ACCÉLÉRÉ 


Description 


Le programme concerne l'effet sur une hypothèque d’une augmentation 
du montant des versements mensuels. Cette augmentation réduira à la 
fois la durée du prêt et aussi le montant des intérêts déboursés. 


Exemple 


Sept ans après avoir contracté un emprunt d’une durée de trente ans, 
Carole envisage d’augmenter de 800F le montant des versements 
mensuels pour son remboursement. Elle voudrait savoir quelle écono- 
mie elle réaliserait ainsi. Elle a emprunté 480 000 F à 9,75 % pour une 
durée de 30 ans. La Figure 4.8 donne la réponse : plus de 300 000 F. 








1040 REM ----- 
1050 N$="REMBOURSEMENT ACCELERE" 

1060 REM =" 

1070 GOSUE 6200 : k=1 

1075 REM FARAMETRES DU FRET 

1080 GOSUE 360 

1090 GZ#="ANNEE DE L'AUGMENTATION" 

1100 GOSUE 6600 : Z=PAR(4) 

1110 GOSUER 250 

1120 Z=12#7-12 

1130 Q3$="MONTANT DE L'AUGMENT (F)" 

1140 GOSUB 6600 : AU=FAR(5) 

1150 REM CALCUL 

1160 TI=O : BAL=O : TF=0 

1170 FOR J=1 TO Z 

1180 11=IN/12/1004M0 : Fi=F-i1 : MO=MO-Fi 
1190 TI=TI+I1 : TF=TF+FI 

1200 NEXT J 





Figure 4.9 : Liste du programme : Remboursement accéléré 
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1210 
1220 
123 

1240 
1250 
1260 
1270 
1280 
1290 
1300 
1510 


1320 
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REMRQURSEMENT ACCELERE 


MONTANT DE L EMFRUNT ir) 4 
TAUX D INfEFET ANNUEL (%) 
DUREE DU FRET (ANNEES) 
ANNEE DE L'AUGMENTATION 
MONTANT DE L'AUGMENT (F: 





ANNEES DE REMRSMT 
INTERETS TOTAUX VERSES 
GAIN SUR LES INTERETS 





-VOULEZ-VQOUS 
CALCULER 
DE NOUVEAU CO QU N 70 


Figure 4.8 : Affichage à l'écran : Remboursement accéléré 








REM CALCUL DE L'INTERET SANS AUSMENYSTICN 
TI2=0 : MO2=FAR (1) 
FOR J=1 TG 12*AN 


12=IN/12/1004M02 : F2-F-12 : MIZ=MOD-FI 
TIZ=TIZ+IZ 

NEXT J 

REM CALCUL DE L'INTERET AVEC L AUSMENTATION 
J=o 


T1=IN/12/1004MC : TI=TI+I1 

P1=F+AU-I1 : TF=TF+F1 

MO=MO-F1 

J=J+i 

IF MO:O THEN 1290 

PRINT 

FRINT'ANNEES DE REMBSMT";TAR (28): 
PRINT USING''###H####. ##": FAR (4)+J/17-1 
PRINT'INTERETS TOTAUX VERSES";TAR(28&): 
PRINT USING'###H#H##.HH':TI 

PRINT'GAIN SUR LES INTERKEIS":;TAR(£8);: 
PRINT USING'"##H####.##":TI2-TI 
02#="CALCULER" : GOSUR :400 

IF NO$="N" THEN END ELSE GOTO 1540 











Figure 4.9 : Liste du programme : Remboursement accéléré (suite) 


78 





CALCUL DU REMBOURSEMENT GLOBAL 


Description 


Les hypothèques sont généralement établies de manière à pouvoir être 
levées grâce à un versement global effectué au terme d’une période 
donnée. Ce programme vous permet de calculer ce versement. Vous 
devez faire intervenir le montant du prêt, sa durée d'amortissement, le 
taux d'intérêt annuel et le nombre d’années au bout desquelles le 
versement global pourra être fait. 


Exemple 


Max a une hypothèque dont le montant est de 500 000 F avec un taux 
d'intérêt annuel de 11 %. L’amortissement de la dette est calculé sur 
30 ans et Max doit lever son hypothèque au terme d’une période de 
10 ans. Combien devra-t-il verser? Les Figures 4.10 et 4.11 montrent 


l'affichage et la liste du programme correspondant à ce cas. 
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REMROURSEMENT GLOEAL 


MONTANT DE L'EMFRUNT (F) S00000.00 
TAUX D INTERET ANNLEL (%) 11.00 








DUREE DU FRET (ANNEES) 30.00 
SNNEE DÙ REMROURSEMENT 19.00 
VERGEMENT MENSUEL 4761.62 


VERSEMENT GLOBAL 
HrRES 10 ANS 461:11.00 





NOUVEAU À Li HW 70 


Figure 4.10 : Affichage à l'écran : Calcul de remboursement global 





EM ee —— 
NE="PREUMERDUJRELMENT GLCOBRAL" 

KE _….— es eme em mn em me 

CSSUE 6200 3 ai 

REM FARAMETRES DU FRET 

GOSUER 760 

QATE="ONNEE DL REMBQURSEMENT " 
SOÜSUER 6600 3: Z=12#FAK (4) 

GÜSUR 250 

SUE 470 

INT 

FRINT'VERSEMENT MENSUEL"; TAB (28) ; 
FRINT USING'#H#HHHHH.H# "5 F 

FRINT 53 FRINT'VERSEMENT GLOERAL" 
FRINT'APRES ":2/12;" ANS"; TAB(28); 
FRINT USING'UHH##HAH#.HH": MO 
G2#="CALCULER" : GSOSUB 3450 

1590 IF NO$="N" THEN END ELGE GOTO 1470 













5 


















Figure 4.11: Liste du programme : Calcul de remboursement global 
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ACQUISITION D’'UNE MAISON 


Description 


Ce programme permet de déterminer la somme maximale qu’une 
banque acceptera de vous prêter pour l’achat d’une maison. Pour le 
mettre en œuvre, vous ferez intervenir le taux d'intérêt annuel et la 
durée possible du prêt, votre revenu annuel, le montant annuel estimé 
des taxes et assurances, le pourcentage de votre revenu brut que la 
banque prendra en considération pour calculer le montant total de vos 
versements mensuels, et le pourcentage que représente le versement au 
comptant que vous effectuerez. 


Exemple 


Louis et Elisabeth veulent acheter une maison. Le taux d’intérêt 
habituel pour les prêts immobiliers sur 30 ans est de 13,5 %. Le revenu 
annuel du couple est de 400 000 F. Ils envisagent de faire un versement 
comptant représentant 20 % du prix de la maison. Ils estiment à 
19 200 F le montant annuel des taxes et assurances. Le banquier leur 
fait savoir que le montant de chacun de leurs remboursements 
mensuels ne devra pas excéder 35 % de leur revenu. L'affichage des 
données de ce problème et du résultat obtenu se trouve Figure 4.12. La 
Figure 4.13 donne la liste du programme correspondant. 
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.. 


ACHAT D'UNE MAISON 


FAUX D [NIERET ANNUEL (2) 
DÜREE DU FRET (ANNEES) 
REVENU SN DE L'ACHETEUR 
TAXES ET A5SU ANN EESTI 
% DU REVENU MENS ACCEFTE 





% VERSE AU COMFYANT 20.60 
MONS ANT D FINANCEMENT 8/8867.00 
FRIX 15995830. 00 


VOULEZ-VOUS 
CALCULER 
DE NOUVEAU CO OÙ N 70 


F 
ee 


Figure 4.12 : Affichage à l'écran : Achat d’une maison 





1800 
1610 Nt="ACHAT D'UNE MAISON" 
1625 
1670 GOSUE 6200 : KHz=1 
1640 Q1+="INTRODUISEZ LES DONNEES" : O2 
1650 =" TAUX D'INTERET ANNUEL 4)" : GOSiUEH 6600 
1660 DUREE DU FRET (ANNEES)" : GOSUR 6860 
1670 "REVENU AN DE L'ACHETEUR" : GOSUE 6500 
1980 CL ="TAXES ET ASS ANN ESTIM" : GOSUR 4600 
1690 "4 DU REVENU MENS ACCEFTE" : GOSUR é6sii 
1706 @ % VERSE AU COMFTANT" : GOSUKH 6690 
1710 
fIG REM CALCUL DU VERGSEMENT 
1720 F=FAR(S)/1004FAR CE) /12-FAR (4) /12 
1740 REM CALCUL DU MONTANT DU FINANCEMENT 
1790 FESFAR(1)/100/12 3 NI=124F4RCZ) 3 Val (Lite) 
1765 MO=FXx (1-VON1)/RE 
1770 FRINT'MONTANT DU FINANCEMEN:i 3 TAR (23) : 
PRINT USINCGHH#HSHAHEH. 4H": MO 
FRINT'FRIX "3 TAR(ES) ; 
PRINT US INGUHHHAHAHR AU MC / {FR lé sun 
UF="CAILCULER" 3 GOOGLE 34où 
LE NOES2"N" THEN END ELSE G5T0 fé 





Figure 4.13 : Liste du programme : Achat d'une maison 
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HYPOTHÈQUE AVEC HYPOTHÈQUE 
EN SECOND RANG 


Description 


Programme à utiliser pour calculer ce que coûtera au total une maison 
faisant l’objet de deux hypothèques successives. Pour cela vous prendrez 
en compte le prix d’achat de la maison, la somme disponible pour un 
versement comptant et le montant de la première hypothèque. Vous 
ferez intervenir aussi le taux d'intérêt de la première et de la seconde 
hypothèque et la durée de la première. Nous considérons que la seconde 
fait l’objet de versements mensuels calculés sur la seule base de 
l'intérêt. 


Exemple 


Jeanne a économisé 80 000 F comme versement comptant sur le prix 
d’une maison. La maison coûte 560 000 F; Jeanne envisage de prendre 
une première hypothèque pour 360 000 F à 12% d'intérêt annuel 
pendant 30 ans et une deuxième à 16 % d'intérêt. Quelle somme 
paiera-t-elle en tout ? L'affichage du résultat est donné Figure 4.14 et la 
liste du programme Figure 4.15. 











1520 REM ee ne 2 
340 Née 'hiY CGIHEÈCUE EN SECOND" 

1950 REM ee 

860 GUQUE 6200 : kæ=l 

1975 Oit="IN!RODUCTION DES DONNEES" : QTF="" 
230 UIF- PRIX D'ACHAT (F)" : GOSUR 6600 








Figure 4.15 : Liste du programme : Hyÿpothèque en second 
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pion QUE GUL EN 3ELOND 


PRIX D'ACHAT 1F) ë 

FANT DISFONIELE {F9 
HYFOTHEQUE 1F) 

TAUX (2%) 

PREMIER FERME (ANNEES: 

SECGND AUX 1%) 








VERSEMENT ({FREMIER) ES ti 
VE MENT (SECOND) téftni, cu 
VERSEMENT TOTAL SIOTZ 





LEZ -VOUS 
Ai CU E 
CE NOUVEAU G OÙ N 79 











Figure 4.14 : Affichage à l'écran : Hypothèque en second 

















='COMFTANT DISFONIHLE 
="'FREMIERE BYFOTHEQUE 
MIER TAUX 2)" 
FREMIER TERME (CANNE i 
="GECONDS TAUX (2) 2: GOSIE éscrs 

INT 

PARCZ) 5 IN=FAREA4) 2 BNEFAR(S; 

EH CALCUL DU FREMIER VERSEMENI 

GOSUR S 

FR RSEMENT  (FREMIEK) "3 126): 
SING'HHHHHEH.HHUSF 

EM CALCUL DU SECONO VERSEMENT 

IF FARCZIEPFAR(1)-FAR(3S) THEN GOTi) Zo40 
FIRINT'SECONDE HYFOTHEQUE F'AS NECESSAIKE" 
GOTO 2990 

PRINT'VERSEMENT (SECOND); TAR(28) :; 

G F2={FAR(1I) -PAR (2) -FAR CI) #FAR (6) /100/12 
FRINT USING'UH#H#H##HH. HR" 
FKRINT'VERSEMENT TOTAL"; TABR(28) ; 
FRINT OUSING'OH#HAHHH. #43 F+P2 
Q2#+="CALCULER" : GOSUR 3400 

IF NO#="N" THEN END ELCE GOTO i8:0 






















Figure 4.15 : Liste du programme : Hypothèque en second (suite) 
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ÉTUDE DE RENTABILITÉ 


Description 


Ce programme sera très utile pour l'étude de la rentabilité des 
investissements immobiliers. Vous pourrez l'utiliser pour obtenir le 
montant des versements mensuels et le produit disponible concernant 
une propriété de rapport. (Nous ne tiendrons pas compte de l’amortis- 
sement afférent au paiement des taxes.) Il vous faudra faire intervenir 
le montant du prêt et sa durée, le taux d’intérêt annuel, l’assurance, les 
taxes et les frais d'entretien. Vous devrez faire intervenir aussi le 
revenu mensuel souhaité. 


Exemple 


Hubert projette d’acheter une maison qu’il a l’intention de louer 
3 800 F par mois. La première hypothèque sera de 640 000 F amortie 
en 30 ans à 12 % d'intérêt. Il estime le coût annuel de l’assurance à 
4 000 F, les impôts fonciers à 12 800 F et les frais d'entretien à 3 200 F. 
Quel devra être le montant des versements mensuels et quel sera le 
produit disponible? Les Figures 4.16 et 4.17 donnent l'affichage à 
l'écran et la liste du programme pour cet exemple. 
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2150 
2140 
2150 
21860 
2170 
2180 
2190 
2290 
22SS 

210 
2220 
22:00 


240 
2250 
2280 
Z270 
2280 
2290 





ETUDE DE RENTABILITE 


MONTANT DE L'EMFRUNT (F) 640500, 
TAUX D'INTERET ANNUEL (7) 
DUREE DU FRET (ANNEES) 
ASSURANCE ANNUELLE {Fi 
IMPOTS ANNUELS (F) : 
FRAIS D'ENT ANNUELS (F; T2°0. 








REVENU MENSUEL (F) BD. 00 
VERSEMENT MENSUEL 69382. 17 
FRODUIT DISF MENS. -4445. 79 


—VOULEZ-VOUS 
CALCULER 
DE NOUVEAU O OÙ N 70 


Figure 4.16 : Affichage à l'écran : Étude de rentabilité 





REM. SSSR esse 
Nt="ETUDE DE RENT 
REM === 
GOSUR 6200 : 
REM INTRODUCTION DES FARAMETRES 

GOSUR Z60 

QZ+= "ASSURANCE ANNUELLE (F)" 3 GÜSIUEH 6euu 
Q3+t="IMPFOTS ANNUELS (F)" : GOSUER 6400 
“FRAIS D'ENT ANNUEL S {Fi 3: GOGUR 64 
"REVENU MENSUEL (F)" : GOSUR 6600 

REM CALCUL DU VERSEMENT 

GOSUR 250 

FRINT 

FRINT'VERSEMENT MENSUEL"'; TAR(LE): 

PRINT USING'HH#HHHH.HH' SF 

FRINT'FRODUIT DISF MENS."3TAER(23) 3: 

FD=FAR (7) -P- (FAR (A4) +FAR(S) +FAR (6) ) / 12 
FRINT USINC'HH#HH#HH. HH!: ED 

Q2+="CALCULER" : GOSUR 7400 

IF NO$="N" THEN END ELSE GOT) 211:: 

















Figure 4.17 : Liste du programme : Étude de rentabilité 
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CATALOGUE DE PROGRAMMES 
DE GESTION IMMOBILIÈRE 


Comme précédemment, nous pourrons associer les programmes de ce 
chapitre pour constituer un ensemble d’analyse de gestion immobilière 
contrôlé à partir d’un catalogue. L'affichage du catalogue et la liste du 
programme correspondant sont donnés par les Figures 4.18 et 4.19. 
N'oubliez pas de remplacer l’instruction END de chaque programme 
par une instruction RETURN. La méthode à employer pour constituer 
un tel ensemble a été exposée dans le Chapitre 2. 
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= VERSEMENTS MENSUELS 
BILAN D'UNE HYFOTHEQUE 
BILAN COURANT 

= REMBOURSEMENT ACCELERE 
REMEROURSEMENT GLORAL 

= ACHAT D'UNE MAISON 
HYFOTHEGQUE EN SECOND 
ETUDE DE RENTABILITE 


Il 


D JOUR EN 
il 


CHOISISSEZ LE FROGNANME 3: 


f 


# 


Figure 4.18 : Affichage à l'écran : Programmes de gestion immobilière 





100 REM == 
110 N$="FROGRAMMES DE GESTION IMMOBILIERE" 
120 REM = 
130 GOSUE 6700 

140 XF(1)="VERSEMENTS MENSUELS" 

150 X#(2)="BILAN D'UNE HYFOTHEQUE" 

160 XF(3)="BILAN COURANT" 

170 XF(4)="REMBROURSEMENT ACCELERE" 

180 X$5(5)="REMEOQURSEMENT GLOBAL‘ 

190 X#(6)="ACHAT D'UNE MAISON" 

200 X#(7)="HYFOTHEQUE EN SECOND" 

210 X#(B)="ETUDE DE RENTABILITE" 

220 Z=8 : GOSUR 7000 

230 ON X GOSUR 590,700,880,1040,1420,1600,1820,2110 
240 GOTO 100 








Figure 4.19: Liste du programme : Programmes de gestion immobilière 


n 


PROGRAMMES 
D’ANALYSE 
DE DONNÉES 


Le Chapitre 5 décrit un ensemble de programmes d'analyse qu'on 
utilisera pour traiter et mettre sous forme graphique diverses sortes de 
données. Ces programmes permettent d'effectuer leur introduction en 
mémoire, de les traduire sur l’écran sous forme graphique, et de leur 
appliquer un traitement statistique. Le programme de traitement 
graphique pourra, après mise en œuvre des autres programmes, 
traduire de la même manière les résultats en graphes. 

Les programmes d’analyse de données seront tout particulièrement 
appréciés par les investisseurs. Les divers programmes de lissage 
serviront à atténuer les fluctuations du prix des stocks et à dégager la 
tendance à plus long terme. Ils peuvent aussi être utilisés dans divers 
autres domaines, y compris l’analyse scientifique, le tracé et le lissage 
des courbes ou le traitement des données météo. 

Pour mettre en œuvre les programmes de ce chapitre et des deux 
suivants, il vous faudra au préalable entrer en mémoire le programme 
catalogue et les sous-programmes communs additionnels. Vous devrez 
ensuite sauvegarder ces programmes en un seul fichier puis y ajouter 
les autres programmes comme indiqué dans le Chapitre 1. Les pro- 
grammes de ce chapitre commençant par le catalogue, vous n'aurez pas 
à les modifier. 
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CATALOGUE DE PROGRAMMES 
D'ANALYSE DE DONNÉES 


Le fonctionnement de tous les programmes d’analyse de données se fait 
à partir du même tableau et est provoqué à partir du même programme 
catalogue. Le catalogue appelle la liste du programme d’entrée, celle du 
programme graphique et celle de différents programmes d’analyse. 
Pour utiliser à volonté ces programmes vous devez tout d’abord 
introduire les données en mémoire au moyen du programme d’entrée. 
Vous pourrez alors les traiter graphiquement ou procéder à leur 
analyse. Les données introduites sont stockées dans le champ D, alors 
que les données traitées par les programmes d’analyse sont stockées 
dans le champ R. 

Après avoir fait fonctionner chaque programme, revenez au catalo- 
gue. Il vous est alors possible de faire de nouveau l’analyse avec un 
programme différent; vous pouvez traiter les données d’entrée soit 
graphiquement, soit mathématiquement ou faire de concert les deux 
opérations; où bien vous pouvez introduire de nouvelles données. 

La Figure 5.1 donne l'affichage du catalogue. La Figure 5.2 donne la 
liste du programme correspondant. 
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IN RODUCTION LES CONNÉES 
GRAPHISME 

NNE ET DEVIATION STD 
ENNE MOBILE SUR 3 FOINTS 
MOYENNE MOSRILE FONDEREE 
MOYENNE LENTREE SUR 4 FOINTS 
RECRESSION LINERIRE 





UN 





Mo bRiatis 





140 Eh F(80) ,R(80) ,D(140) 

150 GOSUR 6200 

160 REM CATALOGUE 

170 X#(1)="INTRODUCTION DES DONNEES" 

180 X#(2) ="GRAPHISME" 

190 X#(3)="MOYENNE ET DEVIATION STD" 

200 X#(4)="MOYENNE MOBILE SUR 3 POINTS" 
210 X#(5)="MOYENNE MOBILE PONDEREE" 

220 X#$(6)="MOYENNE CENTREE SUR 4 POINTS" 
230 X#(7)="REGRESSION LINERIRE" 

240 Z=7 : GOSUR 7000 

250 ON X GOSUR 690,920,1140,17%60,1560,1760,19860 
260 GOTO 150 











Figure 5.2: Liste du programme : Programmes d'analyse de données 
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SOUS-PROGRAMMES D’ANALYSE DE DONNÉES 


Le programme graphique utilise deux sous-programmes servant à 
l'affichage sur l'écran. L'un trace les axes; l’autre les gradue et traduit 
les données en courbes. Introduisez ces programmes avant de mettre en 
œuvre le programme graphique. La Figure 5.3 donne la liste du 
sous-programme qui trace les axes. 

La Figure 5.4 donne la liste du sous-programme d’étalonnage des 
axes et de tracé des courbes. Ce programme permet d’introduire chaque 
donnée puis d'en effectuer le traitement, ou de faire ces opérations 
simultanément selon l’état de la variable CH $. 


Programmes d'analyse de données 




















LOCATE 1,1 
S PRINT USING'##H##":MX—(MX-MN) /4%(1-1)/5 
NEXT I 
LOCATE 8,271 
REM AXE X 
FOR I=1 FO 3° 
FRINT''-": 
NEXT I 





REM AXE Y 

1=i TO 21 

LOCATE 6,1 : FRINT" 1" 
NEXT I 

REM ECHELLE SUR L'AXE Y 
FOR I1=1 TO 16 SIEF S 
iLOCATE 6,1 : FRINF'"-" 





FOR 1=8 T0 28 ST£F 5 

REM MARQUAGE X 

LOCATE I,2i : FRINT"'I"; 
LOCATE I1-1,22 : FRINT 1-7 
NEXF I 

RETURN 





Figure 5.3 : Liste du programme : Tracé des axes 





REM = 
REM DEFINITION DES ECHELLES 

RENM 2 
FOR I=i TO ND 

F1=2i- INT (20% {D (1) -MN3 / (MX MP) 
FRS2I-INT (20% (RCI) -MN) / (MX AN) ) 
IF CH$<:"I" THEN &7c 

IF F 1 OR Fi£1 THEN 6070 570 
LGCA’* 1+3,F1 3 FRINT'#" 
GOTC 850 
IF © s'RT THEN 615 

IF FErE1 OR F2<1 THEN GCYTO 67û 
EUCRTE I+8,F2 3: FRINT +" 

GOTO 650 

REM TRACE EN COMMUN 


















IF F1:21 OR Fi<i OR F2:21 OR FZ:1 THEN 670 
>. LOCATE Le6,F1 2: FRINT'# 
1 LOCATE I+B8,FP2 : FRINT'+" 
>) NEXT I 
= TUE: 
ERE=1 3 RETURN 
RETURN 








Figure 5.4 : Liste du programme : Définition des échelles 
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INTRODUCTION DES DONNÉES 


Description 


Vous utiliserez ce programme pour introduire en mémoire les données 
que les autres programmes pourront alors analyser et transformer en 
courbes. Il vous permet de prendre en compte 32 points. Les données 
sont stockées dans le tableau D (1). Vous frapperez un D pour indiquer 
que lintroduction est terminée. Les dix derniers points introduits au 
clavier sont affichés à l’écran, ce qui facilitera votre travail. N'oubliez 
pas que les opérations de lissage et de traitement graphique ne peuvent 
être pratiquées qu'à partir de données introduites au moyen du 
programme prévu pour cela. 


Exemple 
Anne-Marie veut introduire en machine les données fournies par ses 
expériences de laboratoire. Les données sont les suivantes : 
Point 1 2 3 4 D 6 7 8 9 10 
Donnée ] 3 5 4 » 6 7 8 9 Il 


Point 11 12 13 14 15 16 17 18 19 20 
Donnée 12 15 13 14 15 16 15 13 12 12 


Point 21 22 23 24 25 26 27 28 29 30 
Donnée 11 10 7 9 8 7 o 5 4 3 


Point 31 32 
Donnée 3 0 


La Figure 5.5 donne l'affichage et la Figure 5.6 la liste du 
>rogramme d'introduction de données. 
prog 
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INYRODUETION DES DONNEES 
VALEUR ? 31 
VALEUR 7 0 
VALEUR 3 
VALEUR 25 78 
VALEUR 26 7 
27 ? 5 
28 7 % 
29 7 4 
Te) … 
LES DONNEES DéNt DL LéxLDRE 
DRES ACHEVEMENT 
Figure 5.5 : Affichage à l'écran : Introduction des données 
690 REM =" 
700 N#="INTRODUCTION DES DONNEES" 
710 REM = 
720 REM PREPARATION 
730 GOSUB 6200 
740 G1#="INTRODUISEZ LES DONNEES DANS L'ORDRE" 
750 O2$="TAPEZ D APRES ACHEVEMENT" 
760 Q3+t="" : GOSUR 5000 
770 ND=0 
780 J=é 
790 FOR I1=1 TO 140 
800 LOCATE 10,9 
810 PRINT" . 
820 LOCATE 5,J 
830 PRINT"VALEUR "; 13; TAB (20) 
840 INPUT D# 
850 IF D#="D" THEN 910 
860 ND=ND+1 
87 D(1)=VAL(D#) 
880 J=J+1 
890 IF J=16 THEN J=6 
900 NEXT I 
310 RETURN 








Figure 5.6 : Liste du programme : Introduction des données 








GRAPHISME 


Description 


Ce programme permet de traduire en courbes aussi bien les données 
brutes que les données déjà traitées (des données que vous obtiendrez 
en utilisant les programmes d’analyse qui vous sont présentés dans les 
pages suivantes). Vous commanderez au programme de mettre sous 
forme de graphes soit les données nouvellement introduites, soit les 
données traitées par le programme d’analyse, soit les deux types de 
données à la fois en répondant à l’interrogation du programme par 1,T 
ou D respectivement. Le symbole O représente les données brutes et le 
symbole + les données traitées. Vous devez aussi définir le minimum et 
le maximum de l'échelle des Y. Si les données utilisées ont des valeurs 
qui se situent hors de l’échelle ainsi fixée, le message DONNÉE HORS 
ÉCHELLE vous sera signifié et il vous faudra redéfinir cette échelle. 
Pour revenir au catalogue, il vous suffira de frapper une touche. 


Exemple 


Traçons le graphe correspondant à l’exemple précédent. Nous fixerons 
la valeur minimum à O et la valeur maximum à 20. Nous choisirons 
l'option 1, les données n’ayant pas été traitées. La Figure 5.7 donne le 
graphe affiché sur l'écran et la Figure 5.8 la liste du programme. 


Programmes d'analyse de données 











920 
930 
940 
950 
955 
960 
970 
980 
990 
1000 
1910 
1020 
1030 
1040 
1050 
1060 
1070 
1089 
1090 
1100 
1110 
1120 
1150 





20 -I 
I 
I 
I 
I * 

15° 1 HR  K x 
{ # 
1 + # 
1 # + 
I # * 

10 -I * 
ÿ ( * # 
I D * 
I EL #  _# 
I 

5 -1 # + ## 
I ## # 
% # + 
I 
I * 
FIST II] -——- 1# 

1 6 1i 16 21 26 31 


TAFEZ UNE TOUCHE FOUR CONTINUER 





SE 


igure 5.7 : Affichage à l'écran : Graphisme 








REM --——————————-——- 
N$="GRAFHISME" 
REM ---————————————— 
G2#="INTRODUCTION OÙ TRAITEMENT OÙ LES DEUX" 
QS#="DONNEE (I OÙ T OÙ D)" 
GOSUR 5000 
GOSUR 5400 

IF CH$&="I1" OR CHF="T" OR CHE="D" FHEN 990 ELSE 570 
Q1$="" : O2$="" 

QS+="CHOISISSEZ L'ECHELLE MAX : " 

GOSUR 5000 : INFUT MX 

Q35+#="CHOISISSEZ L'ECHELLE MIN : " 

GOSUB 3000 : INFUT MN 

GOSUR 270 

ERF=0 

GOSUER 470 

IF ERF£%1 THEN 1110 

G1+$="DONNEE HORS ECHELLE" 

O2#="CORRIGEZ SVF" 

GOTO 1000 

LOCATE 1,4 

PRINT'TAFEZ UNE TOUCHE FOUR CONTINUER" 
CHÉ=INEEYS : IF CH#="" THEN 1120 ELSE RE URN 











Figure 5.8 : Liste du programme : Graphisme 
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MOYENNE ET DÉVIATION STANDARD 


Description 


Ce programme sert à calculer la moyenne et la déviation standard pour 
des données entrées en mémoire au moyen du programme d’introduc- 
tion. Pour lutiliser, il vous suffira de le sélectionner à partir du 


catalogue. 


Exemple 


Anne-Marie veut calculer la moyenne et la déviation standard de 
données de laboratoire. Elle a mis en œuvre le programme et obtient 
l'affichage des résultats : Figure 5.9. Liste du programme 
Figure 5.10. 


99 Programmes d'analyse de données 












MOYENNE ET DEVIATION STE 


MOYENNE DE DONNEES 83.21 
DEVIATION STANDARD 4.438 


—FOUR CONTINUER FRAFFER UNE TOUCHE 








REMS ES =SEES=nn DmS=T 
N#$="MOYENNE ET DEVIATION STD" 
REM 





REM CALCUL DE LA MOYENNE 

MO=0 

FOR I=1 T0 ND 

MO=MO+D(I) 

NEXT I 

MO=MO/ND 

REM CALCUL DE LA DEVIATION STD 
SD=0 

FOR I=i TO ND 

SD=SD+{D(1)-MO) "2? 

NEXT I 

SD= (SD/ND) *.S 

FRINT'MOYENNE DE DONNEES"; TOR (T4) 
FRINT USING'##H##H##H.#H#": MD 
FRINT'DEVIATION STANDARD‘; TAR(24) 
PRINT USING'H#H#H#H#H.HH": SD 

GÜSUR 7400 

RETURN 








Figure 5.10 : Liste du programme : Moyenne et déviation standard 
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MOYENNE MOBILE SUR TROIS POINTS 


Description 


Nous examinerons maintenant trois programmes de lissage. Le premier 
effectue un moyennage sur trois points de données introduites dans le 
tableau d’entrée. Les données ayant fait l’objet d’une telle opération de 
lissage sont stockées dans le tableau R(I). Vous pouvez en obtenir 
l'affichage soit sous forme numérique, soit sous forme graphique. Ce 
programme calcule la moyenne des données prises de trois en trois; 
chaque valeur obtenue est utilisée pour effectuer le lissage de proche en 
proche. Lorsque cette opération est effectuée, apparaît sur l'écran la 
question suivante : 


VOULEZ-VOUS AFFICHER LES DONNÉES 


Si vous répondez par O: le programme affiche les données sous 
forme numérique. Vous pourrez tracer le graphe correspondant en 
faisant appel au catalogue principal de manière à utiliser le programme 
graphique. Si vous répondez par N : vous obtenez le catalogue principal 
qui vous permet de mettre immédiatement en œuvre le programme 


graphique. 


Exemple 


Anne-Marie veut appliquer différentes méthodes de lissage à ses 
données de laboratoire. Elle commence par utiliser le programme de 
moyennage sur trois points et obtient le graphe affichant ensemble les 
données introduites et les données traitées. Voir le résultat du lissage 
Figure 5.11. Lorsque la donnée introduite et la donnée résultant du 
lissage sont les mêmes, un seul point figure sur le graphe. La 
Figure 5.12 donne la liste du programme. 
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% 





HO ++ 
#++ + 
#+ #* + 
# + + 
# #++ 


# + +++ 


+ ##+ 


+++ +++ 
# + #+ 






* 
Dtté=I1--1---1----1---1%x 
1 & 11 16 2 Zé ST 


TAPEZ UNE TOUCHE FOUR CONTINUER 





Figure 5.11 : Affichage à l'écran : Moyenne mobile sur 3 points 





LG REM 
1:70 NF="MOYENNE MOBILE SUR 3 POINTS" 
1280 REM 


1:90 GOSUE 4200 

1400 REM ON FLACE LE RESULTAT EN R(1) 
1410 R(1)=0 : R(2)=0 : R(3)=0 

1420 FGF I1=4 TO ND 

1430 R(I3=(D(I-3)+D(I-2)+D(I1-1))7/3 





1440 FI 
1450 & "VOULEZ-VOUS AFFICHER LA" 
1460 ="DONNE (O0 OÙ N)" 





1470 Q3#="" : GOSUR 5000 
1480 GOSUR 7800 

1490 IF NO$="N" THEN RETURN 
1500 CLS 
510 FOR I=4 TO ND 
FRINT RCD), 
NEXT E 

GOSUE 7400 

5G RETUSN 

















Figure 5.12 : Liste du programme : Moyenne mobile sur 3 points 
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MOYENNE MOBILE PONDÉRÉE 


Description 


Une deuxième méthode de lissage consiste à calculer la moyenne 
pondérée sur trois points et de proche en proche. Le lissage des données 
est effectué en attribuant le coefficient 3 au point le plus récent, le 
coefficient 2 au précédent et le coefficient 1 au premier point introduit. 
C’est donc toujours le point le plus récemment introduit qui est affecté 
du plus fort coefficient. La mise en œuvre de ce programme est effectuée 
à partir du catalogue; les données ainsi traitées sont stockées dans le 
tableau R(1). Comme précédemment, ces données peuvent être affichées 
sous forme numérique ou sous forme de graphe par le programme 
graphique. Notez que, lorsqu'il y a plusieurs ensembles de données, il 
n’est pas possible de les mettre simultanément en mémoire. 


Exemple 


Appliquons le programme de moyennage pondéré au traitement des 
données de laboratoire d’Anne-Marie. Figure 5.13 on trouve à la fois les 
données brutes et les données traitées en utilisant ce programme. La 
liste du programme est donnée Figure 5.14. 


103 


Programmes d'analyse de données 








EG -i 
Î 
I 
Î 
Î # 
ea # * ++ 
1 # + + 
I +++ x 
I # #++ 
Æ # + #+ 
19 -I #+ 
Î # + # 
1 + +++ 
I *# + 
Ï + + 
5 -I L: Æ + #4 + 
î +++ #+ 
I # + #+ 
I 
I * 
SE noce tnt Cons €. 
1 6 ii 16 21 26 31 


TAFEZ UNE TOUCHE FOUR CONTINUER 


Figure 5.13 : Affichage à l'écran : Moyenne mobile pondérée 





S = 
158: 


570 


1560 
390 


16400 





BEM mme mm moe ee me 0e 2e ee me eo come mu ne ce ce Ou ce ee me eu ce ie ce 
NF="MOYENNE MOBILE FONDEREE SUR 3 POINTS" 
REM ee 


GOSUR 4200 

REM ON FLACE LE KE 
R1)=0 5: R(2)=0 : 
FOR I1=4 O0 ND 





s 
R{3)=0 


ULTAT EN R(I) 


RCI)=(DCI-Z)+2#D(I-2)+3#D(1-1))/6 


NEXT I 


Q1+-="VOULEZ-VOUS AFFICHER LA" 


Q2+="DONNEE (0 OÙ N)" 
Q:5="" : GOSUR 5000 
GOSUE 7800 

IF NO$="N' THEN RETURN 
Cis 

FOR I1=4 TO ND 

PRINT R(I), 

NEXT I 

SOSUR 7400 

RETURN 








Figure 5.14 : Liste du programme : Moyenne mobile pondérée 
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MOYENNE CENTRÉE SUR QUATRE POINTS 


Description 


Voici une dernière méthode de lissage : le moyennage centré sur quatre 
points. Cette méthode conduit à affecter d’un coefficient 1 les données 
introduites en premier et en cinquième rang, et d’un coefficient 2 les 
données introduites en deuxième, troisième et quatrième rang. Le 
programme est mis en œuvre à partir du catalogue. Les données traitées 
peuvent être affichées sous forme numérique ou sous forme graphi- 
que. 


Exemple 


Appliquons cette méthode aux données de laboratoire rassemblées par 
Anne-Marie. La Figure 5.15 donne l'affichage conjoint des données 
traitées et des données brutes. La Figure 5.16 donne la liste du 
programme. 


Programmes d'analyse de données 





170 
1770 
1780 
1795 
1800 
1610 
1879 
1320 
184û 
1850 
196: 
1870 
1380 

OS 
19Cui 













20: <=} 
I 
I 
I 
I # 
LS: "1 6 + 
Ii * +h++ 
I MO ++ + 
i # + x + 
I * # + 
10,=T + x + 
I # + #+ 
£ + #++ 
1 # # + 
I + + 
So 1 # # + ## + 
1 EN ++ # + 
1 + + #+# 
I 
I * 
PEtt+re-= Is t--=T-==<I---5I+ 
1 & ii 16 21 26 Si 
TAFEZ UNE TOUCHE FOUR CONTINUER 





REM 
NF="MOYENNE CENTREE SUR 4 FOINTS" 
REM - Û 
GOSUE 6200 


REM ON FLACE LE RESULTAT EN Ril) 

RO1)=G 3 R(2)=0 3 R(T)=0 à: R(GI=0 à: R(G)=: 
FOR I=é TG ND 

R{T)=(D{II-S) 42H (DUI-4)+DCi- 1) 4+D(I cLituci 


NEXT I 
Q1+="VOULEZ-VOUS 
2+='"'DONNEE (O0 OÙ N)" 
UIF="" ; GOSUR 5000 
GUSUER 7800 


AFFICHER LA" 





IF NOUSEUN" THEN REÏURN 
CLS 
1-4 TO ND 
NT KI) 
NEXT I 
GCSUR 7409 
RETURN 





Figure 5.15 : Affichage à l'écran : Moyenne centrée sur 4 points 


1))/uù 





Figure 5.16 : Liste du programme : Moyenne 


centrée sur 4 points 


1% 





RÉGRESSION LINÉAIRE 


Description 


La méthode de régression permet d'obtenir la meilleure ligne droite 
correspondant à un groupe de données. Cette ligne est celle qui 
correspond le mieux au critère de régression. Le programme est mis en 
œuvre à partir du catalogue. Il utilise les données mises en mémoire au 
moyen du programme d'introduction des données. L’équation de la 
ligne droite choisie est affichée sur l’écran; son graphe sera obtenu en 
utilisant le programme de graphisme, mais il peut être légèrement 
distordu à cause de la trop faible résolution verticale de l'affichage. 


Exemple 


Franck voudrait obtenir la droite de régression correspondant aux 
données que l’expérimentation lui a fournies. Ces données sont les 
suivantes : 


Point 1 2 3 4 » 6 7 8 9 10 Il 
Donnée 1 2 3 » 9 6 7 9 10 11 11 
Point 12 13 14 15 16 17 18 19 20 21 22 
Donnée 12 13 14 14 15 16 17 19 20 21 22 


L'affichage pour cet exemple est donné par la Figure 5.17; la liste du 
programme par la Figure 5.18. 


107 Programmes d'analyse de données 





REGRELSION LINEALRE 


Y= .%80477 X +  .-45451) 


-FOUR CONTINUER FRAFFER UNE OBCHE 








Figure 5.17 : Affichage à l'écran : Régression linéaire 










196ù | 
1970 
1580 
1990 GOSUR 6200 

2000 SX=0 : SY=0 : SXY=C : SXL-r0 

2010 FOR I=1 TO ND 

ee ) SX=SX+I 

SY=SY+D(I) 

SXY=SXY+DCI)#I 

SXZ+1°2 

NEXT I 

M=(SXY-SX#SY/ND)/(SX2-5X" Z/ND) 
B=SY/ND-M#SX/ND 

FRINT" Y="sMsU"X + "5 E 

REM MISE A JOUR DU CHAMF RESULTAT 
FÜR I=i TO N)D 

Rii)=E+M#l 

NEXT I 

GOSUE 7400 

RE TURN 


DE ee DE net 


"REGRESSION LINEAIRE" 


E 


+ 
E 





NZ 2 
Z N 















Figure 5.18 : Liste du programme : Régression linéaire 
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PROGRAMMES 
D'EXERCICES DE 
MATHÉMATIQUES 


Les trois ensembles de programmes de ce chapitre vous permettront 
d'utiliser votre ordinateur pour des exercices d’arithmétique. Chaque 
ensemble a son propre fichier et est mis en œuvre à partir d’un 
catalogue que vous devrez donc introduire au préalable. On y trouvera 
des exercices portant sur l’addition, la soustraction, la multiplication et 
la division des nombres entiers et des nombres fractionnaires. Les trois 
catalogues offrent un choix de programmes de difficulté graduée allant 
du niveau des premières classes primaires à celui de fin d’études 
secondaires. Tous ces programmes comptabilisent les bonnes et mau- 
vaises réponses. 

Une fois familiarisés avec ces programmes, enfants et adolescents 
feront de rapides progrès en arithmétique et leur travail scolaire en 
bénéficiera. 
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PREMIER CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Le premier groupe de programmes comprend quatre types d’exercices 
portant sur les nombres entiers : l’addition, la soustraction, la multi- 
plication et la division. Après l’affichage du catalogue, vous ferez votre 
choix en pressant une des touches numériques. L'ordinateur deman- 
dera alors de fixer le plus grand nombre pouvant être utilisé; en 
fonction de cette indication, il proposera deux nombres et mentionnera 
l'opérateur définissant le type d’exercice sélectionné. Vous introduirez 
votre réponse de gauche à droite. 

En plus du programme catalogue, deux sous-programmes communs 
devront être associés au programme principal. La Figure 6.1 donne 
l'affichage à l'écran, et la Figure 6.2 la liste du programme catalo- 
gue. 
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ADDITION 
SOUSTRACTION 
MULTIPLICATION 
DIVISION 


wi 


RANr 





Figure 6.1 : Affichage de l'écran : Exercices de mathématiques 1 





100 RM 
110 N$="EXERCICES DE MATHEMATIQUE ii" 
120 REM = 
1350 GOSUR 46200 

140 K=1 

150 X#(1)="ADDITION" 

160 X#(2)="SOUSTRACTION" 

170 X#(3)="MULTIFLICATION" 

180 X#$(4)="DIVISION" 

190 Z=4 : GOSÜR 7600 

200 R=O : W=ù 

210 G1#="QUEL EST LE FLUS GRAND NOMBRE" 
220 O2+="QUE VOUS DESIREZ" 

230 QZI#="UTILISER" 

240 GOSUR 5060 

230 FRINT TAR(2G) : INFUT Y 

260 ON X GOSUR 500,620,7790,890 

270 GOTO 165 














Figure 6.2 : Liste du programme : Exercices de mathématiques 1 
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SOUS-PROGRAMMES | 
D'EXERCICES DE MATHEMATIQUES 


Ces deux sous-programmes servent à afficher les questions et les 
réponses. Ils doivent être introduits avant les programmes d'exercices 
et ont pour objet de les raccourcir. Ils génèrent de manière aléatoire les 
nombres proposés pour les calculs et tiennent la comptabilité des 
résultats. Leurs listes se trouvent Figure 6.3. 
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REM QUESTION ET REFONSE 
REM —----- ee 
LOCATE 20,5 : PRINT USING'"H###H"; NI 
LOCATE 19,6 : PRINT SN$3 : PRINT USINC H#H#"3; ND 
LOCATE 20,7 3: PRINT'----" 
PRINT "REFONSE 

INPUT A 

FRINT'LA REFONSE CORRECTE 
RETURN 

REM = — 
REM BILAN DE L'EXERCICE 
REM = 
PRINT : PRINT'VOUS AVEZ " 
IF S=1 THEN FRINT'RAISON" ELSE FRINT'TORT" 
IF S=1 THEN R<R+i ELSE W=W+i 
PRINT"PROBLEMES” ; TAB (20) ; R+W 
PRINT"CORRECTS"; TAB (20) :R 
PRINT"ERREURS" ; TAB (20) ;W 

Q2$="VOUS EXERCER" : GOSUR :40ûù 

RETURN 





A 


mi 
ui 











Figure 6.3 : Sous-programmes d'exercices de mathématiques 
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ADDITION 


Description 


Pour chaque exercice portant sur l’addition, deux nombres pris au 
hasard vous seront donnés. Le résultat de l’opération devra être entré 
de gauche à droite, ce qui veut dire qu’il faudra au préalable l’inscrire 
sur une feuille de papier. Le programme tient compte du nombre 
maximum que vous avez vous-même fixé. 


Exemple 


Sur la Figure 6.4 apparaît le résultat correct de l’addition des nombres 
5 et 4 La liste du programme d’addition est donnée par la 
Figure 6.5. 
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EXERCICE D'ADDITION 


Ü 





CRHFELRS 





- VOULE Zi, 
VO EXERCER 














GOSUE 2 


IF SeNi+NZ THEN 


SING'HHEH" 








THEN RETURN ELSE SIC 








Figure 6.5 : Liste du programme : Erercices d'addition 
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SOUSTRACTION 


Description 


L'exercice de soustraction ressemble à l’exercice d’addition. Le choix 
des nombres destinés à faire l’objet du calcul est tel que la réponse est 
toujours de signe positif. 


Exemple 


L'affichage de la Figure 6.6 donne le résultat correct de la soustraction 
posée. La Figure 6.7 donne la liste du programme de soustraction. 
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CXEnRCILE DE SOUS TRACTION 


3 
7 





REFONSE a 41 
if REFONSE CORRECTE EST : 1 


VOUS AVEZ 

RAISON 

FRCGRLIMES 1 
CORRECTS 

CRREURS 0 


se 


-VOULE Z--Y3US 
VOUS EXERCER 
DE MOUVEAU O OÙ N 7O 





soustraction 


420 

810 NF="EXERCICE CE SCUS!TRACTION" 
b45 REM -— 

£EG GCSUR 6290 

60 NI=INT (RND Cr) #Y) 
70 Ï NT {END (Yi #Y) 
660 NI=N1 

490 IF NIzN2 GGTO 710 
760 NI=N? : N2=NE 

716 SNt="--" 

720 GOSUER 280 


1F AENI-N? THEN Szi ELSE £eû 
FRINT USING'H#H#HH'"; N1I-N2 

REM BRiLAN DE L'CXERCICE 

SOSUR :8G 

IE NUS=UN" THEN RETLIRN ELGE éd 








Figure 6.7 : Liste du programme : Exercices de soustraction 
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MULTIPLICATION 


Description 


Deux nombres vous sont donnés et il s’agit de multiplier l’un par 
l’autre. Le plus grand ne peut dépasser la limite que vous avez fixée. Le 
programme affiche la réponse sur une seule ligne. Si le multiplicateur 
comprend plusieurs chiffres, vous pourrez utiliser le programme de 
multiplication de grands nombres figurant plus loin dans ce chapitre. 
Ce programme affiche les opérations intermédiaires qui sont dans ce 
cas nécessaires. 


Exemple 


La Figure 6.8 donne l'affichage de la multiplication de 7 par 6. La 
Figure 6.9 est la liste du programme de multiplication. 
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Me RÉRCICE DE MULSITLICASICH 

















X à 
REFONSE » 42 
LA REFONSE CURRECTE ES1 42 
VOUS AVEZ 
SOI 
i 
i 
Ü 
- VOULEZ-VOUS 
VOUS EXERCER 
dE NGUVEAU O OÙ N 70 
Figure 6.8 : Affichage à l'écran 





: Exercices de multiplication 





REM 
N$="EXERCICE DC 





GUSUR 4700 
NIZINT (RND (V5 #Y) 
JZ= INT (RND (Yi #Y) 
35N ! 
OCUE 280 
(F AZNLANT 











THEN 


ELLE 
PRINT USINS'HHH#U:NISNT 


S=i 3-0 





GOSUE =80 
IF NOF="N" 











Figure 6.9 : Liste du programme : Erercices de multiplication 
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DIVISION 


Description 


Division d’un nombre entier par un autre nombre entier. Fixez la 
limite supérieure que peut atteindre le dividende lors de l’appel au 
programme catalogue. Le programme choisit deux nombres de manière 
à ce que le résultat soit toujours un nombre entier. Le nombre le plus 
grand susceptible d’être obtenu comme réponse ne saurait évidemment 
dépasser le nombre limite choisi au départ. 


Exemple 


La Figure 6.10 donne le résultat de la division de 4331 par 61. La liste 
du programme de division est donnée par la Figure 6.11. 
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EXERCICE DE DiViSIiOÜN 


1 


47:: 

7. 61 
REFONSE D FE 
LA KREFONSE CORKREUTE EST 3: 7 i 
VOUS AVEZ 
RALSUN 
FRÜRI.CHMES 1 
CORFECTS 1 


ERREURS o 


— VOULEZ-VOUS 
VOUS EXERCER 
LE NOUVEAU O0 OÙ N 70 


Figure 6.10 : Affichage à l'écran : Erercices de division 





890 

900 N$="EXERCICE DE DIVISION" 
910 

920 GOSUR 6200 

930 N1=INT (RND(Y)#Y) 

940 N2=INT (RND (Y) #Y) 

9350 NI=N1#N? 

960 SNt="/" 

970 GOSUER 280 

980 IF A=NI/N2 THEN S=1i ELSE S=0û 
990 FRINT USING'"'####"3:N1/N2 


995 REM RILAN DE L'EXERCICE 
1000 GOSUER O 
1010 IF NO THEN RETURN ELcE 870 





Figure 6.11 : Liste du programme : Erercices de division 
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DEUXIÈME CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Ce deuxième catalogue comporte deux programmes. Le premier permet 
de s'exercer à l’addition de nombres disposés en colonne; le second 
d'effectuer la multiplication de grands nombres en affichant les 
opérations intermédiaires. Pour chacun de ces exercices, il est recom- 
mandé de se munir d’une feuille de papier et d’un crayon afin de noter 
les résultats avant de les introduire en machine. La Figure 6.12 donne 
l'affichage du catalogue et la Figure 6.13 la liste du programme 
correspondant. 
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ADD i fION EN COLONNE 
= MULTIPLICATION DE GKANDS NOMBRES 


+) mn 


CHOISISSEZ LE FROGRAMNME 


Figure 6.12 : Affichage à l'écran : Exercices de mathématiques II 








100 REM ET EN CUS 
110 N#="EXERCICES DE MATHEMATIiQUE il" 
LROCREM ESP ERERSSSRRSMESSERE SE 

130 GOSUR 4700 

140 F=1 

150 X#(1)="ADDITION EN COLONNE * 

160 X#(2)="MULTIFLICATION DE GRSNDS NOMBRES" 
170 REM FREFARATION ET AFFICHAGE DU CATALOGUE 
180 Z=2 : GOSUR 7660 

190 ON X GOSUR 210,580 

200 GOTG 100 








Figure 6.13 : Liste du programme : Exercices de mathématiques I 
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ADDITION EN COLONNE 


Description 


Ce programme propose l’addition de nombres disposés en colonne. 
Vous le sélectionnez à partir du catalogue en pressant la touche portant 
le chiffre 1. Vous déciderez combien de nombres vous voulez addition- 
ner et vous fixerez la valeur limite du plus grand nombre. Les réponses 
correctes et incorrectes seront comptabilisées. 


Exemple 


La Figure 6.14 donne le résultat correct de l’addition des cinq nombres 
47, 41, 1, 34, 13 et la Figure 6.15 la liste du programme. 








REM == 
Nt="ADDITON EN COLONNE" 
REM - - - —--- 
GOSUE 420 

U1#="" 

d.42"QUEL EST LE FLUS GRAND NOMBRE" 
O2#="A ADDITIONNE*" 





GOISUR SGouru 
s REM ON DINNE LE NOMERE 
e ie UT LG 
Zn DDH="COMETEN DE NCMERRES" 





Cindc 
FI 
à er + Wen 





| 


Figure 6.15 : Liste du programme : Addition en colonne 
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ADDITON EN COLONNE 


VOTRE REFONSE 7 136 


REFONSE CORRECTE 176 
VOUS AVEZ RAISON 

NOMBRE D'EXERCICES 1 

REP. CORRECTES 1 

REP. ERRONEES (a) 


— VOULEZ-VOUS 
ADDITIONNER 
DE NOUVEAU O OÙ N 70 


A 





Figure 6.14 : Affichage à l'écran : Addition en colonne 








I&ii GOSUE 6706 

ui TF=0 

ôù FOR I=i TO NU 

D ONISINT (RNCS) *26) 

TI<TT+N1 

FRINT FAB{EO!S 

FRINT USING'HH#HHEHS: NI 

NEXT I 

FRINT TAB(20) "===" 
FRINT'VOTRE REFONSE "3; TAR (20) 
[NFUT 4 

FRINT 

géir j'RINT'REFONSE CORREC'E":; AR) 
475 PRINT USINSUHH#HHHUSTT 

1F 1T<A THEN S=1 ELSE S=<0 
FRINT'VOUS AVEZ ?"; 

IF S=1 THEN ReR+i ELSE W=W+1 

IF S=1i THEN FRINT"'RAISON" ELSE FRINT'TORT" 
FRINT'NOMERE D EXERCICES":; TAR(2O) 3: R+W 
FRINT'REF. CORRECTES"3;TAB(20):;R 
PRINIUREF. ERRONEES "3: TAR:ITO) :W 
= '"AUDITIONNER" : GOSUR 460 
NÜUH='"N" THEN RETURN ELSE T49 



























Figure 6.15 : Liste du programme : Addition en colonne (suite) 
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MULTIPLICATION DE GRANDS NOMBRES 


Description 


Le programme constitue un excellent outil pour l'entraînement à la 
multiplication de grands nombres. On le choisit à partir du catalogue 
en pressant la touche 2. Vous devez aussi indiquer combien de chiffres 
doivent avoir les facteurs à multiplier. Deux nombres vous seront alors 
proposés, vous effectuerez leur multiplication et donnerez la réponse à 
l'ordinateur. La réponse correcte sera affichée ainsi que les étapes 
intermédiaires du calcul ce qui vous permettra de retrouver plus 


facilement les erreurs éventuelles. 


Exemple 


La Figure 6.16 donne le résultat de la multiplication de 9 105 par 4 645 
et la Figure 6.17 la liste du programme. 





Foioiit- "MU AFL ICAFTIEON DE 
4 Etes 5 re 

OS je 642 

410 Uits="" 

É ZE="COMRLIEN CE CHIFE IR 

F="AURONT LES HOMBRES À MULTIFLIER" 

OST SOUL: 

THUPUT 2 

" UOSUE éi un 

9 NI1=C0 :N2=0 





GRÉNDS NCMRRES 







[NIR] 















Figure 6.17 : Liste du programme : Multiplication de grands nombres 
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MULTIPLICATION DE CRANLS NOMARES 


?10S 
4645 


c. 


Zé42 
S462:000 
ZT642000n: 


42292700 






#LN) 





DONNEZ VOTRE REFONSE +7 





VOUS AvE£ LORT 


VOULEZ-VOUS 
iLiiFii 
DE NOUVES 








OÙ N 70 


Figure 6.16 : Affichage à l'écran : Multiplication de grands nombres 


: NEXT I 

FRINT TARI20) : 
FRINT TRH(20) 3: FRINT USING'HHHHHHHHHH" : N2 
FRINT TAH(2O) gt" 

LOCATE 1,16 

FRINT'DONNEZ VOTRE REFONSE rs 

INFUT A 

LOCATE 1.6 

FOR 1=G TO Z-1 

Ü'RINT TAK(2O) 

PRINT CSIHIG'HHHEHHAHHEHH TS NI AND CL RAO TI 

NEXT I 

PRINT TAH(2G)3:"- HOT 

FRINT TAR(20) 3: FRINT USING'HHHPHHHHHH" : NIN2 
FRINT 
LCCATE i 
IF 
IF 
Q2: 
IF 


FOR L=0 TO 2-1 
NICI)=INTINND(Z) #10) 


ee] 
pa 





NMI=NLENI CI) #10" 1 
NE=NZ+N2(I)#10"I 


{1)=INTCRNDiZ)#115) 


FRINT USING'HHE#HHHHHHH US: NI 


i8 : FRINT"'YOUS AVEZ "; 

NIxN2=A THEN 35=1i EiSE S=5 

S=1 THEN FRINT'RAISON" ELSE FRINT'TORT" 
="MÜLTIFLIER" : GOSUR 40€ 

NO$="N" THEN RETURN ELSE 679 














Figure 6.17 : Liste du programme : Multiplication de grands nombres (suite) 
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TROISIÈME CATALOGUE 
D'EXERCICES DE MATHÉMATIQUES 


Ce dernier catalogue concerne l’addition, la soustraction, la multipli- 
cation et la division de fractions. Le résultat sera calculé par réduction 
des fractions au plus petit dénominateur commun et donné sous cette 
forme sans transformation en nombre fractionnaire. Les bonnes et les 
mauvaises réponses sont comptabilisées. 

Les quatre programmes de calcul sur les fractions travaillent à partir 
d’un même catalogue. La Figure 6.18 donne l’énoncé de ce catalogue et 
la Figure 6.19 le programme correspondant. 
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S&DDITION 

2 SOÛSTRACTION 

3 = MULTIPLICATION 
DIVISION 


ue 
(M 








NE="EXERCICES DE MATHEL MAATT QUE 
RE: ere ses een ire ner 
Er INT D-2Z 

SSSUER 6200 

E=1 

XE: 





















i Ut 






1)="A9DDIGIL 
#fi2 SOUS TRACTION" 

+ C2) ="'MUTIFLICASION" 

X#14)="DIVISION" 

274 : GOSUKH /üû0 

F=in : W=0 

Gl#="QUEL EST LE PLUS GRAND LENL AIN EUR" 
Q2+="SÛR LEQUEL" 

CSH=UVOUS DÉSIREZ TRAVAILLER" 

FEM ON FOSE L£ QUESTION 

‘ÜSUR 5000 

FKRINT FAR(Z24) : INFUT y 

UN X GOSUE R10,9%30,110u, | 24&c 

GGTO 160 




















Figure 6.19: Liste du programme : Exercices de mathématiques 111 
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SOUS-PROGRAMMES DE FRACTIONS 


Avant toute mise en œuvre des programmes, introduire en mémoire les 
sous-programmes de la Figure 6.20. Ils proposeront les fractions, le 
dénominateur commun, commanderont l'affichage de la question et 
l’impression de la réponse. 

Ces sous-programmes font appel à un générateur de nombres 
aléatoires pour déterminer les numérateurs et les dénominateurs. 
L'affichage sur l’écran est effectué sous forme de fractions comme le 
montre l'exemple suivant : 


ES 
un 


+ 


1 


6 


Pour formuler votre réponse, vous devrez énoncer séparément le 
numérateur et le dénominateur. 
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REM ee ne ee ee 
REM 55-FROGRAMME FRODUISANT NÜHERATEURS EF DENO D 
REM 2 ee 
NL INT ÉRND À Ÿ) 4) IF Ni=u : EN 
= INT IRND VI #Y) IF 





D FHEN Zu 
© 1HEN eu 
KEM ON S ASSÜRE D'UN RESULTAT FOSITIr 
if Mi/DI:=NS/D2 THEN 400 


D1= 
L?= 





NT:RND 
INT (RNDIY 





#Y) IF D: 
#Y) 3 IF D2 












N D i1 : Ni=N 

DE=LD? : D2=D1 : Di=DZ 

RE TURN 

RENM mnonmemen 0 — me et mue me mme cm die me _———— _ - _ - 
KEM 3S-FROGRAMME DE RECHERCHE Di DENOMINATESR Ci MMbr 
RENM memes ce ee memes mn _— _ - —— _— - 


JET 








G G2Ù V#INFiIU/V) 
IF G=0 THEN RETURN 
Lie 





5 456 


REM ee eee ee 2e 
REM AFFICHAGE DE LA QUESTION, DONNEZ LA REFONGE 
REM - 


iOCATE 25,2 

FRINT USING'H## "NI N? 

LOCATE 275,6 

FRINT"--- MSN" ——-" 

LOCATE 25,7 

PRINT USING"H## “Di; D2 
FRINT'INTRODUISEZ LE NUMERATEUR Ve 
INFUT AN 

FRINT'INTRODUISEZ LE DENOMINATEUR "; 
INFÜT AD 

FRINT : FRINT'LA REFONSE CORRECTE EST :" 
RETURN 

REM into Sd Lu Dé mn! sir GE de on mi Eu ls D om om 

REM BILAN DE L'EXERCICE 

PRINT TAEB(24)3; : FRINT USING'"H##"3; NT 
PRINT TAR(Z4)Dam 

PRINT TAB(24)3; : PRINT USING"###";D3 
IF AN=N3 AND AD-DZ THEN GS=1 ELSE S=0 
PRINT : FRINT"VOUS AVEZ "; 

IF S=1 THEN FRINT'RAISON" ELSE FRINT"TORT" 
REM VERDICT 

IF S=1 THEN R=R+1 ELSE W=W+1 
FRINT'NOMERE D'EXERCICES"; TAB (20) ; R+W 
FRINT'REF. CORRECTES":;TAB(20):R 
FRINT'REP. ERRONEES"; TAB (20) ;W 
Q?+="CALCULER" : GOSUE 3400 

RETURN 








Figure 6.20 : Sous-programmes d'exercices de calculs de fractions 
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ADDITION DE FRACTIONS 


Description 


Ce programme permet d’additionner deux fractions. On le sélection- 
nera à partir du catalogue en pressant la touche 1. On spécifiera quel 
est le plus grand dénominateur sur lequel on veut travailler. 


Exemple 


La Figure 6.21 donne le résultat de l’addition 1/1 + 1/1. La liste du 
programme correspondant à ce type d'exercices est donnée par la 
Figure 6.22. 
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EXERCICE D'ADDITION 


Fu 
jh oo 


INTRODUISEZ LE NUÜMERATENUR 
INTRODUISEZ LE DENCOMINSTEUR 7 1 


LA REFONSE CORRECTE EST : 


Se 


VOUS AVEZ TOGRT 


NOMBRE D'EXERCICES i 
REF. CORRECTES © 
REF. ERROÜNEES 1 


- VOULE Z -VGUS 
CALCULER 
DE NOUVEAU I Ci N 





Figure 6.21 : Affichage à l'écran : Erercices d'addition 








810 REM -— RSS rer re es 
820 N#="E)? D'ADDITION" 

BEO\ REM: SSSR EE Res 
840 GOSUR 4700 

845 REM NUMERATEUF ET DENOMINATEU 
850 GOSUR 299 

860 SN#="+" 

870 GOSUEH 509 

880 NE=D?#N1 +Di#N? 

890 D==D1#D? 

900 REM DENOMINATEUR COMMUN 

910 GOSUR 4i0 

920 NI=NZ/V 3 DI=D:/V 

925 REM BILAN 

9:26 GOSUR 650 

940 IF NO$="N" THEN RETURN CLSE du 





















Figure 6.22 : Liste du programme : Exercices d'addition 
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SOUSTRACTION DE FRACTIONS 


Description 


On sélectionnera ce programme à partir du catalogue en frappant la 
touche 2 et il faudra, là encore, préciser la valeur du plus grand 
dénominateur à utiliser. Comme pour le programme de soustraction du 
premier catalogue, les nombres seront choisis de manière que le 
résultat soit toujours de signe positif. 


Exemple 


La Figure 6.23 donne le résultat de l’opération 2/1 — 1/2 et la Figure 
6.24 la liste du programme permettant de réaliser ce type d’opéra- 
tion. 
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EXERCICE DE SOUSTKACITION 


r» 


INTRODUISEZ LE NUMERATEUR P 35 
INTRODUISEZ LE PDENCMINATEUR Î 


LA REPONSE CORRECTE EST : 


VOUS AVEZ TORT 
NOMRRE D'EXERCICES 1 
REP. CORRECTES Ô 
REF. ERRONEES I 
— VOULEZ-VOUS 

CALCULER 

DE NOBGVEAU C CU N 


Figure 6.23 : Affichage à l'écran : Exercices de soustraction 






















990: REMISES SR RSS EE 
960 NHF="EXERCICE DC SOUSTRACTIONT" 
970: REM <= messes 
980 GOSUEH 6200 

990 GOSUKH 290 

1000 NZ=D?#N1-D1#N2 

1010 IF NS THEN 996 

1020 SN#="' 
1030 GOSUR 500 

1040 D:=D1#D? 

1050 REM DENOMINATEUR COMMUN 

1060 GOSUR 410 

1070 NS=N3/V : D3=D3:/V 

1080 GOSUR 650 

1090 IF NO$="N" THEN RETURN ELSE 9Sû 









Figure 6.24 : Liste du programme : Erercices de soustraction 
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MULTIPLICATION DE FRACTIONS 


Description 


Ce programme permet la multiplication de deux fractions. On le 
sélectionne en frappant la touche 3. Il est très facile à mettre en 
œuvre. 


Exemple 


La Figure 6.25 donne le résultat de la multiplication des fractions 2/2 
et 2/3. La liste du programme de multiplication de fractions est donnée 
par la Figure 6.26. 
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EXERCICE JE AU FIFLICATION 


> n 
2 2 
DE ES Ses 
2 3 


INTRODUISEZ LE NÜMERATEUR 8 
EINTRODUISEZ LE DENQMIRIN ST EUR ? 





La FEFONSE CORRECTE EST : 


t) 


& 





NIUVEAL D SU ON DC 





Figure 6.25 : Affichage à l'écran : Exercices de multiplication 








1100 REM eu : 
LLAO dE CE DE MULTIFLICATION" 


ii2o RE raie Re nu 


CRT 








290 






+ DENOMINATEUR COMMON 
GOSUER 4iû 

NI=NZ/V 3 DI=DT/V 
RENM KHILAN 

GOSUR 650 

IF NCGH=UN" TAEN RET 






JRN ELSE 1100 





Figure 6.26 : Liste du programme : Erercices de multiplication 
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DIVISION DE FRACTIONS 


Description 


Programme sélectionné à partir du catalogue en frappant la touche 4. Il 
ramène au programme précédent puisqu'on multiplie la fraction 
dividende par la fraction diviseur inversée. 


Exemple 


L'affichage à l’écran de la division de 3/1 par 4/3 est donné par la 
Figure 6.27 et la liste du programme de division de fractions par la 
Figure 6.28. 


139 Programmes d'exercices de mathématiques 












/ 


mot 


INTRODUISEZ LE NUMERATEUR ” 4 
INYRGDUISEZ LE DENOMEIHA EUR 


LA REFONSE COKXRECTE EST 


VOUS AVEZ SORT 
NOMARE D'EXERCICES 
REF. CORREC 
REF. ERRONE 
VOULE Z. VOUS 

CALCULER 

LE NOUVEAU CG Di N°0 








Figure 6.27 : Affichage à l'écran : Exercices de division 





GÜSUE GE0O 

KEM HUMERATEUR ET DENOMINATEUR 
GOSUR 296 

NT=NIXxNE 

DI=DixN? 

REM DENOMINATEUR COMMUN 

GOSUER 410 

NI=NT/V : DI=D:/V 





SN&="/" 

GOSUE 500 

GOSUB 650 

REM EILAN 

IF NO$="N" THEN RETURN ELGE 1240 





Figure 6.28 : Liste du programme : Exercices de division 


ANNEXE A 


SOUS-PROGRAMMES 
GÉNÉRAUX 


A l’aide des sous-programmes figurant ici, on pourra aisément 
concevoir des programmes courts et donc faciles à introduire en 
mémoire. Les lecteurs intéressés par les possibilités qu'offrent ces 
sous-programmes consulteront l’Annexe B qui montre comment ils 
peuvent être utilisés dans d’autres applications. 

Cette annexe contient les listes des sous-programmes généraux 
utilisés au cours du livre; elles comportent de nombreux commentaires 
destinés à faciliter leur compréhension. 

En les sauvegardant ensemble en un même fichier, vous éviterez 
d’avoir à les retaper plusieurs fois. Associez ces sous-programmes à vos 
programmes d’application ainsi qu'il a été indiqué au cours du 
Chapitre 1. Et souvenez-vous que seule la première instruction REM est 
à conserver dans chaque sous-programme. 
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KEM "UNAU" 

REMISE SSSR STRESS RES SRE 
REM DEMANDE D'UN AUTRE CYCLE 
REM 

RENM CE FROGRAMME DEMANDE À LU 
REM S'Ii VEUT CONTINUER 

REM AFFEL DES FARAMETRES 

REM QUE=CHAINE DE CARACTÈRES DEFINISSANT LES GFERAÂA: ICE 
FEM 

REN FARAMETRES INTRODUITS EN REFONGE 

REM NO$=UN "O" OÙ UN “"N'" FOUR OÙI OÙ NON 

REM 

MEN Res enssResse 
Qit= "VOULEZ-VOUS" 
LUTE<U"DE NOLVEAU G OÙ N 7* 
GSOSUER 500 

D if 7a00 

RE TLRN 


LISATEUR 


+4 


fr 











Figure A.1 : Sous-programme permettant de recommencer à faire fonction- 
ner un programme 





2600 REM "DIALOGUE" 

SOOÏ REM === == SE 

S0O02 REM 

D004 REM AFFEL DES FARAMETRES : 

RENM OQ1$, Q2#, Q3S# = QUESTIONS à AFFICHER 

REM 

REM FARAMETRES INTRODUITS EN REPONSE : 

REM AUCUN 

REM 

REM COMMENTAIRES : LES CHAINES DE CRACTERES 
REM CORRESPONDANT À DES QUESTIONS NON FOSEES 
: REM DOIVENT ETRE CONSIDEREES COMME NULLES ("#) 
D CE CE EE 

FOR I1=21 10 24 

LOCATE 1,1 

IF 1:21 THEN 508G 

REM TRACE D'UNE BORDURE 

FOR ÿS=1 10 40 

2060 PRINT'-"; 

3070 NEXT J 

5080 THEN FRINT CG1i#;: 

9090 IF THEN PRINT Q2#; 

IF 1=24 THEN PRINT Q3#; 

REM ON RAMENE LE CURSEUR APRES LA TROISIEME QUESTION 
CF1=FOS (#0) 

REM CURSEUR EN POSITION COLONNE 

CF=FOS (#0)! 

IF CF::9 THEN 5150 

REM EFFACEMENT DES INFOS ANTERIEURES 

FRINT" "35 : GOTO Sizo 

FREM ON RAMENE LE CURSEUR FOUR INTRODUIRE LES REFONSES 
iOCATE CF1,1 

Sié0 NEXT I 

5170 RETURN 





















Figure A.2 : Sous-programme de dialogue 
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REM "INTCAR" 
REM 
REM INTRODUCTION DE CARAUTERES 

REM 


REM AFFEL CES FARAMETRES : 

REM AUCUN 

REM 

FEM FARAMETRES INTRODUITS Ei RIFONSE à: 
REM CH#=INTRODUCTION DE CARACTERE 











REM 

REMe dt 

FEM ATTENTE DE L'INTRODUCTION D'UN CARACTERE 

CHÉSINEEYE : IF CH£="" THEN 5425 

RETUFN 

Figure A.3 : Sous-programme d'introduction de caractères 

SROÔ REM *INTDON”" 
SBOL REM = 
5802 REM INTRODUCTION DES DONNEES 


S8û3 REM 

SOG4 REM APPEL DES FAKAMETRES : 

580S FEM Q1#, Q2#=INSTRUCTIONS FOUR L'UTILISATEUR 
5806 RENM #=NOM DE LA DONNEE 

5807 REM 

SG0B REM FARAMETRES INTRODUIFS EN REFCNSE : 

3809 REM F#(H)=CHAMF RESERVE AUX DONNEES 

5810 REM 

5811 REM COMMENTAIRES : ON INTRODUIT UNE DONNEE 
5812 REM À LA FOIS, LE PREMIER AFFEL EST ASSOCIE À kH=i 
S81Z REM LA VALEUR DE H AUGMENTE AUTOMATICUEMENT 
5814 REM 

DOLSUREM TRS SSSR EST SSSR SES 

5817 REM QUESTIONS 

5970 GOSUR 5000 

3825 REM DONNEES 

SRIO INPUT FÆ#(K) 

5840 REM QUESTIONS EN ECHG ET REFONSE 

5850 LOCATE 5,Kk+2 

S860 FRINT O3#; TAR(2S):F#(K) 

5865 RKEM INCREMENTATION DE L'INDEX 

S879 H=Kk+1 

3880 RETURN 











Figure A.4 : Sous-programme d'introduction de données 
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6200 "PREF" 

6201 

6202 PREPARATION DE L'AFFICHAGE 

6205 

6204 CE SS FROGRAMME VIDE L'ECRAN 
6205 ET AFFICHE LE TITRE DU FROGRAMME 
6206 AFPEL DES FARAMETRES : 

6207 N$=TITRE DU FROGRAMME 

6208 

6209 PARAMETRES INTRODUITS EN REFONSE : 
6210 

6211 

6212 

6215 ECRAN VIDE 

6220 

6225 TITRE 

6250 FRINT N# : PRINT 

6250 RETURN 














Figure A.5 : Sous-programme de préparation et d'affichage 





6600 REM "INTFAR" 

6601 REM -----—— 2 
660? REM INTRODUCTION DES FARAMETRES 
6603 REM 


6604 REM AFFEL DES FARAMETRES : 

6605 REM O1#$, OZ#=INSTRUCTIONS FOUR L'UTILISATEUR 
6606 REM QZF=NOM DE LA DONNEE 

6607 REM 

6608 REM FARAMETRES INTRODUITS EN REFONSE : 
6609 REM PAR(K)=DONNEE ORTENUE 

6610 REM 

6611 REM COMMENTAIRES : LE FREMIER AFFEL EST 
6612 REM ASSOCIE A K=1, LA VALEUR DE K AUGMENTE AUTOMATIQUEMENT 
6613 REM 

6614 REM ------— 
6615 REM QUESTIONS 

6620 GOSUR 5000 

6625 REM INTRODUCTION DES DONNEES 

6630 INPUT FAR(H) 

6640 REM QUESTION EN ECHO ET REFONSE 

6650 LOCATE 3,k+2 

6660 PRINT 035$; TAB(28); 

6670 FRINT USING'H#H##HH#.HH#": FAR CE) 

6680 K=K+1 

6690 RETURN 





Figure A.6 : Sous-programme d'introduction de paramètres 
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7000 
7001 

7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 

7012 
7015 
7020 
7025 
7050 
7040 
7050 
70860 
7070 
7080 
7085 
7090 
7095 
7100 
7110 
7119 
7120 
7130 
7140 
7150 
71860 
7170 





7400 
7401 
7402 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
7412 
7420 
7430 
7435 
7440 
7445 
7450 
7460 


REM “CATALOGUE " 

RM = —— 
REM FROGRAMME CATALOGUE 

REM 

REM CE FROGRAMME AFFICHE LUN CATALOGUE 


REM ET PERMET DE CHOISIR UN FROGRAMME 
REM APPEL DES FARAMETRES : 

REM Z=NO. DES FROGRAMMES 

REM X#(1)=CHAMF DU NOM DES FROGRAMMES 
REM 

REM PARAMETRES INTRODUITS EN REFONSE : 
REM X=NUMERO DU FROGRAMME CHOISI 

REM 

REM 
CLS 

REM AFFICHAGE DU CATALOGUE 

FOR I1=1 TO Z 

IF 1=10 THEN PRINT O;ELSE PRINT 1: 


PRINT'= " 3; X#(I) 
NEXT I 
Q1$="" : Q2+#-="" 


QS$="CHOISISSEZ LE FROGRAMME :" 

REM QUESTIONS 

GOSUB 35000 

REM INTRODUCTION DE CARACTERE 

GOSUB 5400 

X=VAL (CH#) 

REM VOIR SI LE CARACTERE EST DANS LA GAMME 
IF X>=1 AND X<=Z THEN RETURN 

IF X=0 AND Z=10 THEN 7140 ELSE 7150 

X=10 : RETURN 

G1$="CHOIX INTERDIT, CHOISISSEZ À NOUVEAU" 
GOSUE 5000 

GOTO 7100 





Figure A.7 : Sous-programme d'affichage de catalogue 





REM "ATTENTE" 
REM = 


REM ATTENTE DE LA FRAFPFE D'UNE TOUCHE 
REM 


REM CE SS PROGRAMME ATTEND QUE L'UTILISATEUR 


REM FRAFPFE UNE TOUCHE 

REM APPEL DES FARAMETRES : 

REM AUCUN 

REM 

REM PARAMETRES INTRODUITS EN REFONSE : 
REM AUCUN 

REM 

REM = 
Q1$-"POUR CONTINUER FRAPFER UNE TOUCHE" 
Q2$="" : Qzg="r 

REM APPEL DIALOGUE 

GOSUB 5000 

REM ATTENTE DE LA FRAFPE D'UNE TOUCHE 
X$=INKEYS : IF X$="" THEN 7450 

RETURN 








Figure A.8 : Sous-programme d'attente 
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7800 REM "OÙUINON" 

TOOL REM: === eee nest 
7802 REM OÙI --NON 

7807 REM 


7964 REM AFFEL DES FARAMETRES : 

7805 REM AUCUN 

7806 REM 

7807 REM FARAMETRES INTRODUITS EN REFONSE : 
7808 REM NO$=OUI OÙ NON 


7809 REM 

ZBH10 'REM === Sn nee See ses 

7820 REM IN ATTEND LA FRAFFE D'UNE TOUCHE 

7870 NO#$=INFEY#S : IF NO$="" THEN 7830 

7360 IF NO$="O" OR NO$="N" THEN 7890 

/870 REM SI KREFONSE <: DE OUI OÙ NON NOUVEL ESSAI 


7885 GOTO 78:0 
7870 FRINT NO# : RETURN 





Figure A.9: Sous-programme oui/non 


ANNEXE B 


COMMENT 
UTILISER LES 
SOUS-PROGRAMMES 
GÉNÉRAUX 


Les lecteurs qui désireraient s'initier à la programmation pourront 
essayer d'écrire leurs propres programmes. Ils économiseront beaucoup 
de temps et d’efforts en utilisant les sous-programmes généraux de ce 
livre comme parties de programmes. Cette annexe a pour but de les 
aider. Nous y examinerons les fonctions de quelques-uns des sous- 
programmes. Des programmes simples montreront comment les sous- 
programmes peuvent être utilisés. 
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ÉTABLISSEMENT DU CATALOGUE 


Le sous-programme catalogue débute à la ligne 4600. Ce sous- 
programme effectue l’affichage d’un catalogue sur l’écran et attend 
ensuite l'introduction d’un nombre. C’est en choisissant ce nombre et 
en le signifiant à l’ordinateur que vous sélectionnez le programme que 
vous voulez utiliser. 

Les Figures B.1 et B.2 montrent la liste du programme et l'affichage 
sur l’écran concernant un catalogue simple. Nous définissons le tableau 
X$(1) par l’ensemble des noms des programmes disponibles. La valeur 
de N correspond au nombre des programmes pouvant être sélectionnés. 
Le sous-programme affiche le nom des programmes et attend que 
l'utilisateur ait signifié son choix. Ce dernier est concrétisé au moyen 
d’une instruction GOSUB. 
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REM = 
N="EXEMPLE DE CATALOGUE" 
REM = 
REM PREFARATION 

GOSUE 6200 

REM DEFINITION DU CHAMP CATALOGUE 
X#(1)="PROGRAMME 1" 
X#(2)="PROGRAMME 2" 

X$ (3) ="'PROGRAMME 3" 
X#(4)="FROGRAMME 4" 

Z=4 : GUSUB 7000 

ON X GOSUR 220,230,240,250 
END 


FRINT X#£(1)3; " CHOISI" : RETURN 
PRINT X#(2): " CHOISI" : RETURN 
FRINT X#(:)3; " CHOISI" : RETURN 
PRINT X#(4)3 " CHOISI" : RETURN 


Annexe B 











Figure B.I : Liste d'un programme 
permettant d'effectuer un choix à partir d'un catalogue 


FROGRAMME 
FROGRAMME 
= FROGRAMME 
= FROGRAMME 


WoH 


HBiitjr 
Hiutje 


CHOISISSEZ LE FROGRAMME : 


Figure B.2 : Exemple d'affichage d'un catalogue permettant le choix 
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CHOISIR UN AUTRE PROGRAMME 


Tous les programmes de ce livre utilisent le sous-programme UNAU. Ce 
sous-programme demande à l’utilisateur s’il veut remettre en œuvre le 
programme précédemment utilisé. Trois lignes de données sont affi- 
chées. La première et la troisième sont fournies par le sous-program- 
me; vous aurez à écrire la seconde. 

Le sous-programme UNAU fournit la valeur O ou N à la variable N$. 
Le programme examine l’état de cette variable pour déterminer s’il lui 
faut de nouveau se remettre en action. 

Les Figures B.3 et B.4 donnent la liste du programme et l’affichage à 
l'écran correspondant. On voit comment ce programme type notifie la 
question METTRE EN ŒUVRE CE SOUS-PROGRAMME. 
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2SS REM = 
260 NF="UTILISATION DU SS-PROGRAMME ‘UNAU‘" 
270 REM--- 
280 GOSUE 6200 

290 G2#="METTRE EN OEUVRE CE SOUS PROGRAMME" 
295 REM UN AUTRE ? 

300 GOSUR 3400 

310 IF NO$="0" THEN 255 ELSE END 





Figure B.3 : Exemple d'utilisation du sous-programme UNAU 


UTILISATION DU SS-FROGRAMME ‘UNAU‘ 


--VOULE 2 -VOUS 
METTRE EN CEUVRE CE SOLS FROGHAMME 
DE NOUVEAU O OÙ N ?N 


Figure B.4 : Affichage à l'écran : Utilisation du sous-programme UNAU 
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SOUS-PROGRAMME DE DIALOGUE 


Nous utiliserons le sous-programme DIALOGUE pour afficher trois 
lignes de texte au bas de l'écran. Il vous est ainsi possible de formuler 
trois questions différentes, ce qui est suffisant pour la plupart des 
programmes. Le plus souvent nous formulerons une instruction sur la 
première ligne et des questions sur la deuxième et la troisième. Ce 
sous-programme trace une ligne délimitant la zone d'affichage et 
supprime le texte affiché au cours de l’exercice qui a précédé. Les 
Figures B.5 et B.6 donnent une liste du programme et l'affichage 
correspondant. 


153 Annexe B 











REM = 
N#="UTILISATION DÙÜ SS-FROGRAMME DIALOG" 
REM = 





GOSÜR 6200 
REM QUESTIONS 

Gi+t="VOICI LA FREMIERE GUESTION" 
REM QUESTIGN BLANCHE 

o2#="" 

OS#= "VOICI LA DERNIERZ CQUESTION" 
3 REM SORTIE DES OüESTIONS 

GOSUR 50006 

END 








Figure B.5 : Exemple d'utilisation du sous-programme DIALOGUE 


UTILISATION DU SS-FROGRAMME DI£i CG 


VOICI LS FREMIERE QUES /ION 


VOICI LA DERNIERE QUESTION 


Figure B.6 : Affichage à l'écran : 
Utilisation du sous-programme DIALOGUE 
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PROGRAMME D'INTRODUCTION DE DONNÉES 


Le sous-programme INTPAR effectue l’entrée des données pour la 
plupart des programmes de ce livre et peut facilement être utilisé pour 
créer des programmes additionnels. Vous ferez débuter le processus 
d'entrée des données par le vidage de l’écran effectué au moyen du 
sous-programme PREP et par la mise à la valeur 1 de l’indexK. 
L'ordinateur est prêt pour l'introduction des paramètres du program- 
me. Pour chaque paramètre, faites Q3$ égal au nom du paramètre, puis 
appelez le sous-programme commençant à l’adresse 4400. Le sous- 
programme INTPAR demande l'entrée d’un paramètre au bas de 
l'écran. Le paramètre introduit apparaît alors en tête d'affichage. 
INTPAR met les paramètres en mémoire dans le tableau P(K) dans leur 
ordre d'entrée. Les Figures B.7 et B.8 donnent la liste du programme et 
l'affichage correspondant à la mise en œuvre de ce sous-programme. 
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420 
4505 
440 
450 
460 
470 
475 
480 
485 
490 
300 


510 


REM = 
NF="EXEMFLE D'INTRODUCTION DE DONNEES" 
REM 
GOSUB 6200 : Kk=1 


REM DEFINITION DU CHAMF DIALOGUE 
O1+="INTRODUISEZ LES DONNEES" : Q2$="" 

REM FREMIERE OFERATION 

Q3+="PRIX DE DETAIL" : GOSUB 6600 

REM SECONDE OFERATION 

OZ#="REMISE (%)" : GOSUE 6600 

PRINT : FRINT'FRIX = "; TAB(24) 

PRINT USING'"###H###,.##"; PAR (1) -PAR(2) /100#PAR(1) 
END 





Figure B.7 : Eremple d'utilisation 
du sous-programme d'introduction des données 


EXEMPLE D'INYRODUCTION DE DONNELS 


FRIX DE DETAIL 2300.00 


REMISE (7%) 10.00 


FRIX = 2.160.090 


—INTRODUISEZ LES DONNEES 


REMISE (%)7 10 


Figure B.8 : Affichage à l'écran : 
Utilisation du sous-programme d'introduction des données 
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PROGRAMMES EN BASIC, Mathématiques, Statistiques, Informatique par Azan R. Mie 
318 pages, Réf. 259 


AU COEUR DES JEUX EN BASIC par Richaro MaTeosian, 
352 pages, Réf. 233 


JEUX D'ORDINATEUR EN BASIC par Davio H. An, 
192 pages, Réf. 246 


NOUVEAUX JEUX D'ORDINATEUR EN BASIC par Davio H. An, 
204 pages, Réf. 247 

PASCAL 

INTRODUCTION AU PASCAL par Pierre Le BEux, 

496 pages, Réf. 330 


LE PASCAL PAR LA PRATIQUE par Pierre Le Beux ET HENRI TAVERNIER, 
562 pages, Réf. 361 

LE GUIDE DU PASCAL par JACQUES TIBERGHIEN, 

504 pages, Réf. 232 


PROGRAMMES EN PASCAL pour Scientifiques et Ingénieurs par Azan R. Mir, 
392 pages, Réf. 240 


AUTRES LANGAGES 


INTRODUCTION À ADA par Pierre LE BEux, 
366 pages, Réf. 360 


MICROORDINATEUR 

ALICE 

JEUX EN BASIC POUR ALICE par Pierre Monsaur, 

96 pages, Réf. 320 

ALICE et ALICE 90, PREMIERS PROGRAMMES par Roonay Zaks, 
248 pages, Réf. 376 

APPLE / MACINTOSH 


PROGRAMMEZ EN BASIC SUR APPLE Il, Tome 1 par Léoposo LAURENT, 
208 pages, Réf. 333 

APPLE 11 66 PROGRAMMES BASIC par Sraney R. TRosr, 

192 pages, Réf. 283 

JEUX EN PASCAL SUR APPLE par Doucias HerGERT ET Joseph T. KaLASH, 
372 pages, Réf. 241 

GUIDE DU BASIC APPLE Il par DouGias HERGERT, 

272 pages, Réf. 306 

APPLE Il, PREMIERS PROGRAMMES par Roonar Zaks, 

248 pages, Réf. 373 

MACINTOSH, GUIDE DE L'UTILISATEUR par Joseph CaGGiano, 
208 pages, Réf. 396 

ATARI 

JEUX EN BASIC SUR ATARI par Pau Bunn, 

96 pages, Réf. 282 

ATMOS 

JEUX EN BASIC SUR ATMOS par Pierre Monsaur, 

96 pages, Réf. 346 

ATMOS, 56 PROGRAMMES par Srancer R. TROST, 

180 pages, Réf. 372 

COMMODORE 64 

JEUX EN BASIC SUR COMMODORE 64 par Pierre Monsaur, 
96 pages, Réf. 317 

COMMODCORE 64, PREMIERS PROGRAMMES par Roonay Zaks, 
248 pages, Réf. 342 

GUIDE DU BASIC VIC 20, COMMODORE 64 par Doucias HERGERT, 
240 pages, Réf. 312 

COMMODCORE 64, GUIDE DE L'UTILISATEUR par J. Kassmer, 
144 pages, Réf. 314 

COMMODORE 64, 66 PROGRAMMES par Sramey R. TRoST, 
192 pages, Réf. 319 


COMMODORE 64, GUIDE DU GRAPHISME par Chances PLarr, 
372 pages, Réf. 353 


DRAGON 

JEUX EN BASIC SUR DRAGON par Pierre Monsaur, 
96 pages, Réf. 324 

GOUPIL 


PROGRAMMEZ VOS JEUX SUR GOUPIL par François ABeLLA, 
208 pages, Réf. 264 


HECTOR 

HECTOR JEUX D'ACTION par Pierre Monsaur, 
96 pages, Réf. 388 

IBM 


IBM PC EXERCICES EN BASIC par Jean.PIERRE L'AMOITIER, 
256 pages, Réf. 338 


IBM PC Guide de l'utilisateur par Joan Lasseuse ET Caroc RAMSEY, 
160 pages, Réf. 301 


IBM PC 66 PROGRAMMES BASIC par Sranier R. TROST, 
192 pages, Réf. 280 


LASER 

LASER JEUX D'ACTION par Pierre Monsaur, 

96 pages, Réf. 371 

MO5 

MO5 JEUX D'ACTION par Pierre Monsaur, 

96 pages, Réf. 367 

M05, PREMIERS PROGRAMMES par Roonay Zaks, 
248 pages, Réf. 370 

ORIC 


JEUX EN BASIC SUR ORIC par PETER Shaw, 

96 pages, Réf. 278 

ORIC PREMIERS PROGRAMMES par Roonar Zaks, 
248 pages, Réf. 344 

SHARP 


DÉCOUVREZ LE SHARP PC-1500 ET LE TRS-80 PC-2 par Micxe LHom. 
2 tomes, Réf. 261-262 


SPECTRUM 


PROGRAMMEZ EN BASIC SUR SPECTRUM par S.M. Gre, 
208 pages, Réf. 252 


JEUX EN BASIC SUR SPECTRUM par PETER SHaw, 
96 pages, Réf. 276 


SPECTRUM, PREMIERS PROGRAMMES par Roonay Zaks, 
248 pages, Réf. 381 


SPECTRUM JEUX D'ACTION par Pierre Monsaur, 
96 pages, Réf. 368 
TI 99/4 


PROGRAMMEZ VOS JEUX SUR TI 99/4 par François Agezsa, 
160 pages, Réf. 303 


TO 7 

JEUX EN BASIC SUR TO 7 par PIERRE Monsaur, 
96 pages, Réf. 326 

TO 7, PREMIERS PROGRAMMES par Roonay Zaks, 
248 pages, Réf. 328 


TO 7, PROGRAMMATION EN ASSEMBLEUR par Georces Facor.Barrair, 
192 pages, Réf. 350 


TRS-80 


PROGRAMMEZ EN BASIC SUR TRS-80 par Léopoo LAURENT, 
2 tomes, Réf. 250-251 


DÉCOUVREZ LE SHARP PC-1500 ET LE TRS-80 PC-2 par Micmei Luor, 
2 tomes, Réf. 366-262 


JEUX EN BASIC SUR TRS-80 MC-10 par Pierre Monsaur, 

96 pages, Réf. 323 

JEUX EN BASIC SUR TRS-80 par Cunis PALMER, 

96 pages, Réf. 302 

JEUX EN BASIC SUR TRS-80 COULEUR par Pierre Monsaur, 

96 pages, Réf. 325 

TRS-80 MODÈLE 100, GUIDE DE L'UTILISATEUR par Onson Ke1106, 
112 pages, Réf. 300 

VIC 20 

PROGRAMMEZ EN BASIC SUR VIC 20 par G. O0. Hamann, 

2 tomes, Réf. 244-337 

JEUX EN BASIC SUR VIC 20 par Azasrair Gouray, 

96 pages, Réf. 277 

VIC 20, PREMIERS PROGRAMMES par Roonay Zaks, 

248 pages, Réf. 341 

GUIDE DU BASIC VIC 20, COMMODORE 64 par Doucias HeRGERT, 
240 pages, Réf. 312 

VIC 20 JEUX D'ACTION par Pierre Monsaur, 

96 pages, Réf. 345 

ZX 81 


ZX 81 GUIDE DE L'UTILISATEUR par DouGias HERGERT, 
208 pages, Réf. 256 

ZX 81 56 PROGRAMMES BASIC par Sramer R. TRosT. 
192 pages, Réf. 304 

GUIDE DU BASIC ZX 81 par Doucias HERGERT, 

204 pages, Réf. 285 

JEUX EN BASIC SUR ZX 81 par Mark CHARLTON, 

96 pages, Réf. 275 

ZX 81 PREMIERS PROGRAMMES par Rooway Zaks, 
248 pages, Réf. 343 

ZX 81 GUIDE DE L'UTILISATEUR par Doucias HERGERT, 
208 pages, Réf. 256 


MICROPROCESSEURS 

PROGRAMMATION DU Z80 par Roonar Zaks, 

618 pages, Réf. 220 

APPLICATIONS DU Z80 par James W. Corrron, 

304 pages, Réf. 274 

PROGRAMMATION DU 6502 par Roonar Zaks, 

376 pages, Réf. 331, 2ème édition 

APPLICATIONS DU 6502 par Roonay Zaks, 

288 pages, Réf. 332 

PROGRAMMATION DU 6800 par Damez-Jean Davio Er Roonay Zaks, 
374 pages, Réf. 327 

PROGRAMMATION DU 6809 par Roonar Zaks er Wiuiam LaBiak, 
392 pages, Réf. 328 

PROGRAMMATION DU 8086/8088 par James W. CoFFron, 

304 pages, Réf. 316 

MISE EN OEUVRE DU 68000 par C. Vieuserono, 

352 pages, Réf. 363 


SYSTÈMES D'EXPLOITATION 

GUIDE DU CPIM AVEC MPIM par Roonay Zaks, 

354 pages, Réf. 336 

CP/M APPROFONDI par Azan R. Miser, 

380 pages, Réf. 334 

INTRODUCTION AU p-SYSTEM UCSD par Charces W. GRANT ET JON Buran, 
308 pages, Réf. 365 

GUIDE DU PC DOS par Ricxaro À. Kine, 

240 pages, Réf. 313 

LOGICIELS ET APPLICATIONS 
INTRODUCTION AU TRAITEMENT DE TEXTE par Hai GLarzer, 
228 pages, Réf. 243 

INTRODUCTION A WORDSTAR par Arraur Nalman, 

200 pages, Réf. 255 

WORDSTAR APPLICATIONS par Juue Anne ARcA, 

320 pages, Réf. 305 

VISICALC APPLICATIONS par Sramer R. TRosT, 

304 pages, Réf. 258 

VISICALC POUR L'ENTREPRISE par Domiaue HELLE, 

304 pages, Réf. 309 

INTRODUCTION A dBASE Il par Azan Simpson, 

280 pages, Réf. 364 

DE VISICALC A VISI ON par Jacaues BourpEu, 

256 pages, Réf. 321 

MULTIPLAN POUR L'ENTREPRISE par D. Heur et G. Boussano, 
304 pages, Réf. 379 


La plupart de ces ouvrages existent en version anglaise. N'hési- 
tez pas à demander notre catalogue. 
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AMSTRAD 
6 PROGRAMMES 


Ce livre vous propose 56 programmes prêts à l'emploi dans de 
nombreux domaines d'application personnels et professionnels. 
Finances personnelles : 
Etat prévisionnel d'un compte de dépôt. 
Taux d'intérêt d'un investissement. 
Versements nécessaires à la constitution d'un capital. 
Gestion : 
Amortissement linéaire. 
Amortissement dégressif. 
Seuil de rentabilité. 
Immobilier : 
Bilan d'une hypothèque. 
Bilan courant d'un prêt. 
Remboursement accéléré. 
Analyse de données : 
Moyenne et déviation standard. 
Moyenne mobile pondérée. 
Education : 
Entraînement à l'arithmétique. 
Tous ces programmes sont extrêmement faciles à utiliser et cha- 
cun peut être tapé en moins de 10 minutes. Aucune connaissance préa- 
lable du BASIC n'est nécessaire. 


L'AUTEUR 


STANLEY R. TROST dirige une importante société de conseil en infor- 
matique qu'il a créée à Walnut Creek, Californie. Spécialiste des appli- 
cations dans les domaines de l'ingéniérie, de la gestion et dans le 
domaine médical, il a publié de nombreux ouvrages aux Etats-Unis. 
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